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extravio. Las respuestas se canalizarán a través de las 
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ESPECIAL VERANO 



Muchos de vosotros leeréis este extraor- 
dinario de verano de INPUT fuera de r vues- 
tro ambiente habitual, probablemente con 
un refresco en la mano y escuchando el aca- 
riciante sonido de las olas. 

Es por tanto lógico encontrar unos conte- 
nidos que también son poco habituales. 

Aunque INPUT no es una revista de lis- 
tados, el interés que éstos despiertan tal y 
como manifestáis en vuestras cartas, y la 
buena acogida que, estamos seguros, les vais 
a dispensar, nos ha movido a incluir los lis- 
tados BASIC de un montón de programas, 
todos ellos seleccionados entre los que ha- 
béis enviado en forma de colaboración. 

Ha sido una grata sorpresa comprobar la 
gran calidad y el alto nivel de muchos de 
ellos. 



Los concursos y los regalos no podían fal- 
tar en un número como éste. En las páginas 
centrales encontrareis los cupones corres- 
pondientes, con los que participareis en el 
sorteo de más de 100 estupendos regalos, 
que sólo esperan un ganador. Enviad los cu- 
pones que os interesen de las páginas cen- 
trales. ¡Ojo con las fotocopias! Quedarán 
descartadas. 

También hemos incluido algunos artículos 
del tipo habitual, para que la revista siga 
mantenierido su esencia. 

No os perdáis tampoco la increíble aven- 
tura de nuestro Compucomic; unas cuantas 
páginas con la literatura ideal de la hora de 
la siesta. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones será publicado en cada número 

ponga en claro, mes a mes, cuáles son los programas preferidos de INPUT. 

de nuestros lectores. Para ello, es obligado preguntaros directamen- Entre los votantes sortearemos 10 cintas de los títulos que pidáis 

te y tener así el mejor termómetro para conocer vuestras preferen- en vuestros cupones. 

cias. Podéis votar por cualquier programa aunque no haya sido co- Nota: No es preciso que cortéis la revista, una copia hecha a 

mentado todavía en INPUT. máquina o una simple fotocopia sirven. 

Enviad vuestros votos a: LOS MEJORES DE INPUT Alberto Alcocer, 46 - 4.° B. 28016 Madrid 



Primer título elegido L 



Tercer título elegido L 
Qué ordenador tienes 
1." Apellido I i i 



Fecha de nacimiento L 
Dirección I i i i i 



Provincia I i i i 



ELIGE TUS PROGRAMAS 

J L Segundo título elegido 



J I L 



j — L Programa que te gustaría conseguir 
j L Hombre I i i i i i i i 



_i_J 



_L 2/ Apellido I i i i i i i 



j L Teléfono 



J i » i 



J — I Localidad I i i i i 
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NONMfa 




^jjtá'fex^ft un programa ¿íxa!^ pantalla del 

^^9^^}Jj^r;0^ uno. Ofrece uri'i^i'^ que BeÍéCClon^re«^^^^^ 

teclas Óé : f unción (F1-F10) ,las de cws«T y* le barra de espacios (o bien un 
joystick). Se llega a cada opción pulsando primero la tecla SELECT y a 
continuación una de las teclas de función. Con Fl entraremos en la opción 
dibujar. Los cursore#^v«l joystick (C/J) harán que qjtitidtoplece el lápiz, 
mientras que la barra ,ép\ espacios o el botón de disparp jvB/B) decidirán si pinta 

\ ° no * / í 'i 

La goma de borrar aparece 'al pulsar F2. De nuevo, cqri (C/J), la goma se moverá y 

cóp (B/B) borrará el dibu}¿. í \ 
En F3 están Seleccionar emp&^^g^ el lápiz y 

pulsaremos preguntará, de la 

pantalla, la lon'g¿tW$:^ y la relación 9Ltt^\^^á^^^^Bi^Tiá^TmoB con 

dos números de tres cí'fi&'s, cada uno de ellos seguido aewETÜBN. Tras ello 
llevaremos el lápiz al dibujo y, al pulsar (B/B), aparecerá nuestra 
circunf eiléhoi.a. Para hacer otras de la misma proporción bastará con pul^át'^tra 
vez (B/B). Con F4 podremos llenar zóáás con cualquiera de los coloras-, que 
aparebejn a la derecha de la pantalla: Be^eccionaremos el color con .élílapiz y 
pulsarembs (B/B) hasta que el borde rae la pantalla cambie de co}br.| Luego 
bastará! con J.levar el lápiz al dibujo, lísituarlo sobre la zona a ljL'ena ff y Balsar 
^ v (B/B). Con F5, F6 ffijkjj* 'V ^*;t^ s trazar lineas, r ,v.v.v • • • 

;í!lec ( t3iSy¡^ . F i j a r emosjíijjjL o7"¡^^ ( C/J ) y d ibu j &^^$_!^^ 

Para iri<biüi , •t , caracteres en nuestro dibtii'j'ó j^láíaremos F7 , llevaremos el lápiz al 
lugar donde queremos colocar el carácter y pulsaremos la tecla correspondiente 

al carácter. 
) iV( ¡6e borrará el dibujo. Por 6 
¡tte (pulsando G) o cargar ua 



Con F9 y tras pulsar ( 
grabar el dibujo en casi 




v ímt>* con FIO, podremos 
i'lpujo nuevo (pulsando C). 

Joaquín González Morera 



ñST 



10 ' 
20 • 
30 ' 
40 1 
50 1 

60 CLS:C0L0R 1 ,1 5,1 5 :KEY0FF 
70 DEFUSRJD*6M56 

80 L0CATBu>1 0 : INPUT" COLOR DE FONDO: "; C2iits 
90 IFC.Z=|TKENC1=15ELSEC1=1 
100 LÓCAÍE5;?:PRINT"0-TECLAD0" 
110 ,L0CAfrE5 fc tp;PRINT"1-J0YSTICK 1" 
120 L0CATfeJj!!.;,p;RINT"2-J0YSTICK 2^, 
Í$0 .ÍMW^-%Ít'ñfÍP[JJ''ELlGE NUMERO*; Z 
1'40.!;ÍF#3^í<CtMN1 00 






INPUT 5 





\ 

150 C=1 :OPEN"GRP:"A,S'#1 J \ 
160 SCREEN3 : COLOR Á^Ím1$- — ' s 
170 PRESET(15,5flpTWWte|{0^ 
1 80 PRESETd 5 ,8Wk^^^/^^^TkR^" 
1 90 PRESETd 5 ,1 1 5&:>WW$tffi*¡^*===" 
200 M$="V1 504LAD.L8EL4F.L8bFFEDL4E03A04E.L8FL4G.L8EGGFEL2bL'4Á05DCL8DC04A#A#AGL4A 
DR8A#L8GL4A.L8FE03A04FEL2DL4A05DCL8DC04A#A#AGL4ADR8A#L8GL4A.L8FE03AQ4, : ^ 

210 N$="71402L4D .L8EL4F .L8DFFEDL4E01 A02B.\8FL4G.L8EGGFEL2DL4A03DCL8DC.€Í2Á¿ , A#AGL4A 
DR8AÍ'L8 l G,L4A.L8FE03A02FEL2DL4A03DCt8ÍC0SA#A#AGL4ADR8A#L8GL4A.L8FEÓ1 /|02FEL4D.R 

8"" / \ 

220/puup|¡i$ y w$ / _ j' j «¿~--rcr^-"^ 

?P"«ÍM^^ ivr^^SÍS^SH 1 ?..'.'.'.'.'.-' 

250 : ' GOSÜ6íÍ26^Ó''.v:' :;;: V^.^Í&^W » 

260 •========= ' # 

270 1 SPRITES 
280 ========= 

290 'SPRITE LAPIZ /J\ 
300 F0RI=1T032 /l\ 
310 READB: A$=A$+CHR$(B) | \ 
320 NEXTI f \ 

330 SPRITE$(0)=A$ I 

340 DATA 128,96,1 tf&¡g$£aErf.*Z¿ ,0,0,0,0 ,0,0, ífltr^Wtó 

20,10,6,0 ^T^'^?^^*! v W^^^jM'. \<m% 

350 'SPRITE GOMA V ^J¡!0'^4 ^' s -<^'-xm í ^ m ^ 
360 F0RI=1T08 ' ^ 

370 READB:C$=C$+CHR$(B) 
380 NEXTI 

390 SPRiréf(2 : 5'=C$ /f¡® w H A^'H 

400 DATA £24,240,248,124,62,31 ,14,4 /A /A 
410 'SPRITE 1 .PINCEL / I \ / I \ 

420 FÓRIÍ1T032 ,/ J S / 1 S 

4 30^gJ^ fag»^$+CHR$(B) / jf _ Ji '_ I ^ Ji 
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460 DATA .192*240,120, 124, 56,18,7 ,3,1 ,0,Q*ÍU),0,0,0,0,0,0,0,0,0,0, 128,19fo2? ; 4,112 

470 X=ÍO0:Yr1OO ,/ / \ / } \ 

480 '.*= 

490,,* Dfaj Aj / i 

SStBSMSS^Fí 225,190),15, BÍf^^tSpP^^;; 
5'2^;'PfÍES : ÉTíÓÓ^) : COLOR 1:PRINVK U (^WI^ 

540 G0SUB2460 
550 E=STRIG(Z) 

560 IFE=-1THENPSET(X,Y)^v::v.v v , |K«%.. 
570 60T0540 /7\ /¿\ 

580 ======== / / \ / f \ 

590 ' BORRAR / ¡ \ / I \ 

600 •======== í í 

610 LlUEn0^8Z)r^33^T9KC^5 f BF _/ nj k£ Z 

620 PRESET(60,1^7^^^' ; ^ , *^ #1 /'F2=BORRAR" gaT^| lll|| ™Bn^. : ^ 
630 P=2 : C 1=0 '''^■■^^■■■^■SQ a"^C:^^Í 
640 G0SUB2460 V ' W #""' v '" • 

650 E=STRIG(Z) 
660 IFE=7j1:TH£|JPSET(X,Y),C2 
670 GOT0ÍÍ4O /j\ 
680 •=;==é== t =========== / / \ 

690 '/CIRCUNFERENCIAS / j \ / f \ 

700 /==£===*========= 

D ÍSy^?^P(225 ,1 9 
OT^TO&Í&^W>: COLOR 1 :PRINfi^'*^^5MFto!^ENCIAS ,, 
740' LííMÍ5fi¡pjM255,1 91 ) ,1 5 ,BF ^v^fl^V» 
750 LINE(235,0)-(255,191),1,B 
760 F0RK=31T0155STEP31 

770 LINE(235,K)-(255,K),1 :fJEXTK /p'v.v, 
780 C I R CLE ( 245 ,1 5 ) ,1 0 ,1 MT?ft> / / \ 

790 CIRCLE(245,46),1O,r,í.05,,1 .4 / f \ 

800 CIRCLE(245,77),10>i X3.'^5,1 .4 / ¡ \ 

810 CIRCLE(245,108),1'0,1,1 .5. f 5,1 .4 / f _j 

820 CIRCLE(245,139)¿10^¿U5,1 .4 v.r^¡Í^&fe',:: 
830 G0SUB2440 vf m ~m SStTn% &M!< , "¿ ^./¡T^Í¡P^."".%.' 
840 IFX>235AND X<¡á:fc ANO.X#AN6''Y,^AN D INKEY$=CHR$ (f^^p|pj^^»fe LSE890 
850 G0SUB2440 tf'^&tyffi&'W " 
860 E=STRIG(Z) 

870 IFX<230ANDE=-1THEN CIRCLE(X,Y) ,R,C,,,RAELSE850 
880 GOTO ,,860.;.;,., AW>m 

890 IF X¿&35ANDX<255ANDY>31 ANDY<62ANDINKfX$=Cli : lR$(27)THENG0SUBl100ELSE94(;' 
900 G0S1JB2440 
910 Ef'STRIGÓZ) 

920 ,ÍF_x|:230Á^DE=-1THENCIRCLE(X,Y),R,;C,3|.15,\ | RAEL$E900 
W ffPí^^ THEN60SUB1 1 OftO 
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960 E=STR.I6'^. JKW.v,;,, 

970 IFX<í!p0ANDE=-1 THENCIRCLE( X,Y) , R , C ,¿'3 'i,1 5,RAELSE950 /7\ 
980 GOJÓ&ó'O / í \ /' { \ 

990 ;íX>Z35Á'NDX<255ANDY>93ANDY<124ANÍ)irÍEY$=CHR$(27)THENG0SUBl100ELS'Eiq(40 \ 
1000' GOSjÜB2U p ,/ I J, / jf J, 

WPSÍSfe^l THENCIRCLEÍ X^EWÍJS^^ELSEl 000 C^!^^^- 
10^s^feStfy| ^wC'4fvS| ^..m'C^W 

1040 IFX>235MD'x<255ANDY>124ANDY<Í55Á'M^ "" 
1050 GOSUB2440 
1060 E=STRIG(Z) 

1070 IFX<230ANDE=-UHENapWtoE(X,Y),R,C,5,1 .5 ,RAELSE1 050 jkm^ 
1080 GOTO 1060 /¡\ 
1090 GOTO 830 / / \ 

1100 LINE(10/I83)-<2¿5Í90\,15,BF 
1110 PRESET(15 / 184)':C0l/0R 1 íPRINT#1 / "L0NG. RADIO:" 
1120 R**INPUT$<3*^=SSZ3b5 
1130 R=VAL(R$) iC!?^^^" 
1 1 40 PRESET( 1 05 '^Mi'sÑM^^ 

1 1 50 IF INKEY$=CHR$(8) T'HÉÑPR'isÉf (1 05 ,1 83) : COLORI 5 : pflfotll^^^COLORI : G0T01 1 20 
1 1 60 I FINKEY$=CHR$(1 3) THEN1 1 70ELSE1 1 50 

1170 LINE*^.184)-(200 / 190) / 15,BF J»»H;., 
1 1 80 PSCTW 5 ,1 84) ,1 5 : PR INT#1 , "REL . ALT/ AfCH : //\ 
1190 RA'Sf INPUT$(3) / j \ / j \ 

1200 ,RA=uALÍRA$) / / \ / ¡ \ 

121Q--' IF jRA^TjHENPRESEn^O,^) : COLÓR 1¿ :PRÍNT#1 ,"====": COLOR 1 :G0,T0 1190 \ 
1524¡¡£¡pK?^^0 -f 184) :PRINT#1,RA ¿.~ J-t--"- 1 r^m2PÍ^=m 

1 2¿6 'MnKEY*=CHR$(1 3) THEN1 250ELSÉ1 '¿31*^^ W 
1250 LINE(10,184)-(200,190),15,BF 
1260 IFINKEY$=CHR$(24)THEN2350 

1270 RETURN 4*»»*% 
1280 •======== /f\** /¡\ 

1290 1 PINTAR /' f \ / / \ 

1300 ■======== / f \ / f \ 

1310 LINE(10,183)-(225,ipO),<|5,BF f _j 

1320 PRESET(60,183)¿C0¿fo^RINTri /^PINTAR" 
1330 G0SUB2700 ;.;.(" ■«^fatí^^"" % 
1 340 E=STRIG( Z) : ¡^ W A^^Í« 

1350 F0RN=1T014 ''''' W** 

1360 GOSUB 2460 

1370 IFX>230ANDP0INT(X,Y)=NANDE=-1THENC=N 
1380 NEXWíN^ JK ,,A... 

1390 LINEf8,0)-(230,180),C,B /í\ /í\ *• 

1 400 G0'SÜe2''460 / i \ / \ \ 

1410 ,ÍFXÍ23Ó'ANDE=-1THENPAINT(X,Y),C / I S / / \ 

1420/60^1346, / J \ / jf 

i|ío^p^:fí;:;:.; ; . : ^^^¿^^h^} 
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1460 LINEflü>1$3)-<225,190) ,15,BF , J,»«*% 
1470 PRE'SjET/óO,! 83): COLOR 1 :PRINT#1 ,"FS4ÍiINEA" 
1480 FVbjfCÍ*F0:G0SUB2460 / | \ 

1490 ..H=X1V=Y\ / jf \ 

1500 IFINKEl Ir" "THENPSET(H / V) / CELS¡E 14^0 _J 

Í:|^a:.vIFINKEY$^"^THENPSET(X,Y) ^iCsSfejF^fe^^ 

1 5j^i4p$*M#$,Y) ,c v ' 7\;¡|»!ÍkM 

1540 GOTO 1480 
1550 •========== 

1560 ' CUADRADO 

1580 LINE(10 / 183)-(225,>f9 l p) / 15 / BF 
1590 PRESET(60 / 183) :CÓLéR (1 :PRINT#1 ,"F6=CUADRAD0" 
1600 P=0:CI=0:GOSUB2460¡f \ 
1610 H=X:V=Y / / _j 

1620 IFINKEY$=^W*ENPSET(H^a # CELSE1600 
1630 G0SUB2460 m^J^S^VS! 
1640 IFINKEY$=" ' '^ME^I^M'jiiifcELSEl 630 
1650 LINE(H,V)-(X,Y),C/B :: 
1660 GOTO 1600 

1670 •===#***»========== JWHfotoj 

1680 1 eUÁ'pRADO PINTADO /j\ 

1700,LlNÍ(1Ó > 183)-<225 / 190) / 15^BF / / \ 
1710 PREjS ET(6jO,1 83) : PRINT#1 ^"F7=CUA6RADi|D PINTADO" 

S^wSlÍ%ft^THENf>8ET(H,V) , fiTO&áC^^^ 

1750 G0¿'UB24i60 

1760 IFINKEY$=" "THENPSET(X,Y),CELSE1750 

1770 LINE(H,V)-(X,Y),C,BF 

1780 GOTO 1720 

1790 '=5========= 

1800 ' ESCRIBIR 

1810 •========== 

1820 LINE<10,183)-(22í5,1|f?0),Í5,BF 

1830 PRESET(60 / 183)¿.EJ^ÍiT^l!ft^F8=ESCRIBIR ,, 

1840 P=0:CI=0:GO$i[ÍL . 

1 850 COLORC '^^""'^■■^■M^ 

1 860 L$= INKEY$ : I FLf¿ ^^tHÉW W ' ''' 

1870 PRINT#1 7 L$ 

1880 GOTO 1840 

1900 ' bórMr PANTALLA /}\ 

1910 »y==J==¿F=========== / I \ 

1920 ,LINÍ<10'>183)-<225,190)/I5,BF / / \ 
193Q PRE¿ET C6j) / 183) :PRINT#1 ,"F9=B0RRÁR DjttBUJ^" 

t.*>Ó¡5^EBpl¡í,CHJ?$(24)THEN2370 r^Ügf^fr? 

tmilOT^^^i'^HENl 960ELSE1 94% T™*™^»: 
1 96©'''L^Í^^Í30,1 80) ,1 5 ,BF 






KvXv.v,, 





,; Vi '''; iV /.v V( ' t \X' 





tWfilMJi 'V,', 
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1 970 LINEJt*8 ; ¿&)- (230,1 80) ,1 ,B .JKWv.;.;,, 
1980 RETURy 2370 /j\ 

2000/ ■jrmínar / jf \ 

2«*& PUTSPRI^j0,„í255,0) ,15,P .v^S¿SÍ. w 
im^3SR!S^i255^ 91 ) ,1 5 /4l3S^? 
2040N*!l^lTOK|^ (255 ,1 91 ) ,1 5 ,BF #'\„^%^í«5 
2050 IFINKEY$=CHR$(24)THEN2370 
2060 IFINKEY$="6"0RINKEY$="g"THEN2120 
2070 IFINKEY$="C"0RINKEY$= M c"THEN2240 
2080 60T0 2050 
2090 '======== /f\ 

2100 1 GRABAR / | \ 

2110 •======== / j \ 

2120 CL0SE#1 :Y=0:0/EN"ÉAS^ ,, 'r0R0UTPUTAS#1 

2150 PRINT01 ,C ^^.^íte^íft?:^ ¿¡n «AiAf^ 

2170 Y=Y+1:IFY=191THEN2190 

2180 60^2^30 ,jkv:v,,,.. 

2190 CLOSEfl /T\ 

2200 GÓTÍ) 2350 / / \ 

2210 . '==*====]== / j \ 

2220 |_ yARS&ft / /^J, 

ÜS^SPlfe5,255),15,BF f^ís^^v 
22SÓ\.CL«S|Í1::PS!0>OPEN M CAS : "FORIÍW^^A-W 
2260 IFÉd'F(t)=-ÍTHEN2330 
2270 FORX=OT0255 
2280 INPUT#1,C 

2290 PSET(X,Y),C JW».^ 
2300 NEXTX /f\ "" / [\ 

2310 Y=Y+1 :IFY=191THEN23SÓ\ / f \ 

2320 GOTO 2260 / í \ / / \ 

2330 CL0SE#1 / f \ / / Ji 

2370 LINE( 1 0,1 8Z)-$2tf$$f : Íéfá$'f 
2380 PRESET(60,1 83) : COLOR 1 :PRINT#1 ,"SELECT" 
2390 0NKEYG0SUB490 / 590 ,690,1290,1440,1 560,1680,1800,1900,2020 
2400 F0RJ#Í : tO10:KEY(I)0N:NEXT ,jp:v.v,, 
2410 CQ¿aR'',1iT=USR0(0) /'f\ 
2420 GOTé 2390 / í \ 

2430 ,*==É====f / j \ 

2440 • STICK I \ 

^0:^lS)TO*l^fi'$( 24) THEN2370 

247^b'^T*^#p : v:::;•i• 







,.v.;,v,;;;; 
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2480 
2490 
2500 
251 Q 
2 

"p 

zm 

25'SO 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

273JX 

2740 

2750 

2760 

2770 

2780 







ifWuheny=y-i 
ífc*:2vweny=y-1 :x=x+1 

IFDf=3THENX=X+1 
f*=4WENY=Y+1 :X=X+1 

:X=X-1 

flWljÉÉPX-l 
IFD=8THENY=Y-1 :X=X-1 
IFX<9THENX=9 
IFY<1THENY=1 
IFY>179THENY=179 
IFP=10RCI=1THEN263¡ 
IFX>229THENX=229 
GOTO 2640 
IFX>240THENXs¿4C 
PUTSPRITEQJ 
RETURN 

I —ZZ — — — — — ZZZZ — =¿ ¿Sffi^/Mftv * V Áv'^VA 

' MARCO Y PALETA 

LlHfi&fy - ( 230 ,1 80 ) , C2 ,B F 
LlléC'235,0)-(255,191),15,BF 

F0RI=1T014 

LINE(235,J)-(253,J+10),I,B 

LINe<%0)>(230,180) ,C,B 
LINE(8,182)-(230,191),1,B 
RETURN 








INPUT 1 1 



Aplicaciones 



SOLIDOS 

DE REVOLUCION 



DIBUJOS TRIDIMENSIONALES 



CREANDO ALGUNAS FORMAS 



DIBUJO DE SILUETAS 



BANDAS DE CAUCHO 



FUNCIONAMIENTO 



Te presentamos, en este artículo, 
una sencilla técnica que te permitirá 
hacer girar una silueta hasta formar 
un sólido tridimensional. Puedes utili- 
zarla para diseñar lo que quieras, des- 
de un juego de copas de cóctel hasta un 
sombrero. 

El dibujo de objetos simétricos, es- 
pecialmente en tres dimensiones, es 
una labor sumamente complicada. 
Pero con un ordenador se puede con- 
seguir que resulte bastante más senci- 
lla. Con el programa que veremos más 
adelante, lo único que tendrás que ha- 
cer es dibujar el contorno de uno de 
los lados de la forma a dibujar, y el or- 
denador se ocupará de hacer el resto, 
llenando el contorno hasta crear un 
objeto con un entramado de alambres 
y apariencia de sólido. 

El programa funciona efectuando 
un giro del contorno original alrede- 
dor de un eje central. En consecuen- 
cia puedes generar cualquier cosa que 
tenga una sección recta circular, tal 
como un florero, un jarrón, un vaso, 
una campana, un sombrero, una man- 
zana, una naranja y otras mil cosas 
más. Debido a que el programa efec- 
túa una rotación del contorno original, 
la forma sólida producida se llama só- 
lido de rotación o de revolución. El 





programa te permite además visuali- 
zar el objeto desde cualquier ángulo. 

DIBUJO DE LA FORMA 

Es muy fácil dibujar el contorno de 
la forma que quieres crear; el progra- 
ma utiliza para ello la técnica de la 
banda de caucho, en la que puedes es- 
tirar y mover una línea hasta que es- 
tés satisfecho con la posición que 
adopta. La banda de caucho te permi- 
te un control interactivo sobre la for- 
ma que estás dibujando, pudiendo 



apreciar a simple vista cuándo está 
cada línea en su posición correcta. 

Puedes dibujar hasta 20 líneas en el 
contorno. Normalmente esto resulta 
más que suficiente y casi todos los con- 
tornos pueden dibujarse con una me- 
dia docena de líneas. No obstante las 
curvas del contorno tienen que for- 
marse a partir de una serie de tramos 
cortos de rectas lo que requerirá más 
líneas que un contorno angular. 



EL PUNTO DE VISTA 

El programa también te permite 
ejercer control sobre la dirección des- 
de la cual se mira al objeto, no sólo 
desde arriba, abajo o de frente, sino 
también desde cualquier otro punto, 
siempre que puedas especificar el án- 
gulo exacto de vista (un ángulo de 
unos 120 grados te permitirá una bue- 
na vista superior, (algo así como si el 
objeto estuviera colocado encima de 
una mesa). En cualquier momento 
puedes modificar este ángulo, encar- 
gándose el programa de volver a dibu- 
jar el sólido de revolución con la nue- 
va orientación. 

El programa almacena las coorde- 
nadas de todas las líneas. Cuando ha- 
yas terminado de dibujarlas, va co- 
giendo cada línea y la hace girar en 
torno al punto central en pasos de 18 
grados, con un total de 20 pasos para 
todo el círculo completo. También se 
toma en cuenta el ángulo del punto de 
vista, con lo que el círculo aparece 
cada vez más aplastado a medida que 
el punto de vista va estando más bajo. 
En las imágenes de las páginas que si- 
guen puedes ver el efecto final resul- 
tante sobre la pantalla. No será exac- 
tamente el mismo, ya que las fotogra- 
fías que te ofrecemos corresponden a 
una versión del programa para MSX2 
y tanto la resolución, como el colori- 
do son superiores a los que obtendrás. 
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Cuando el programa termina de di- 
bujar la primera vista, se queda espe- 
rando. Si ahora pulsas la barra espa- 
ciadora, puedes elegir la presentación 
del mismo objeto visto bajo un ángu- 
lo diferente. 



USO DEL PROGRAMA 



Teclea ya el programa y prueba a 
dibujar algunas formas. El procedi- 
miento para dibujar consiste en des- 
plazar el cursor al sitio en que quieres 
comenzar una línea y a continuación 
pulsar la tecla apropiada para marcar 
el punto de partida. Seguidamente, 
mueve el cursor para manipular la lí- 
nea de la «banda de caucho» sobre la 
pantalla. Cuando estés satisfecho con 




la posición alcanzada y quieras «fijar- 
la» en su sitio, tienes que pulsar otra 
tecla. Continúa con este mismo proce- 
so, moviendo y estirando la banda de 
caucho y fijando líneas, hasta cons- 
truir todo el perfil. 

Para mover el cursor, tienes que uti- 
lizar las teclas de cursor, la tecla q 
te permitirá marcar la posición de par- 
tida (sólo tienes que utilizarla cuando 
desees cambiar dicha posición al co- 
mienzo del dibujo). Es importante 
que tengas en cuenta lo siguiente: si 
cambias el origen de la primera línea, 
tienes que acordarte de pulsar [SPA- 



CEl antes de seguir adelante. Si no lo 
haces verás cómo la primera línea de 
tu perfil no aparece en el dibujo tridi- 
mensional. La tecla | SPACE [ te servi- 
rá para «fijar» cada línea. Cuando ha- 
yas terminado, pulsa | RETURN [ . Será 
el momento de que elijas el ángulo 
bajo el que quieres observar la figura. 
Una vez que lo hagas dará comienzo 
el dibujo del sólido. 

Cuando el dibujo ya esté completo, 
pulsa | SPACE | para cambiar el ángulo 
de visión. 

Al dibujar el perfil de las formas 
puedes acelerar o decelerar el movi- 
miento del cursor pulsando, en el te- 
clado, la z. 

10 SCREEN 2 
12 C0=15 

14 COLOR C0,1 ,1 :CLS 
16 DIM A(19,1) 
18 RD=ATN(1)/45 
20 BX=126:BY=180 
22 XX=BX:YY=BY 
24 X=BX:Y=BY:M=1 
40 1 

42 1 dibujo rectángulo 

50 LINE (49,181)-(201 ,129) 

,C0,B 
52 1 

54 1 bucle movimiento 

li nea 

60 LINE (BX,BY)-(X,Y) 
,C0 



65 K$=INKEY$ 
70 CP=STICK(0) 
75 IF K$= M " THEN GOSUB 
500 

80 IF K$= M z M 0R K$= M Z M THEN 

M=(M+5) M0D 10 
90 LINE (BX,BY)-(X,Y),1 
95 IF K$="q" 0R K $ = " Q " AND 

A$= MM THEN BX=X:BY=Y 

:BF=1 

100 IF K$=CHR$(13) AND 

LEN(A$)>0 THEN 160 
110 IF CP=1 AND Y-M>130 

THEN Y= Y-M 
120 IF CP=5 AND Y+M<180 

THEN Y= Y+M 
130 IF CP=7 AND X-M>125 

THEN X=X-M 
140 IF CP=3 AND X+M<200 

THEN X=X+M 
150 GOTO 60 
152 1 

154 1 a subrutina 

lectura ángulo 
160 GOSUB 2000 
162 1 

164 1 a subrutina dibujo 

170 GOSUB 1000 
172 1 

174 1 espera barra 

espaci os 
190 T$=INKEY$:IF T$=" " THEN 

GOTO 160 ELSE GOTO 

190 
192 1 
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1522 NEXT C 
1524 RETURN 

1530 YD=95-SIN(D*RD)*X* 

COS(I*RD)-PY:XD=125+ 
C0S(D*RD)*X*1 .5 

1540 IF C=0 THEN BX=XD 
:BY=YD:XX=XD:YY=YD 

1550 LINE (XX,YY)-(XD,YD) 
,C0 

1551 XX=XD:YY=YD 

1560 IF B=1 AND BF=1 THEN 

GOTO 1580 
1565 IF B=1 THEN LINE 

(125,95)-(XD,YD),15 

:G0T0 1580 
1570 LINE (A(C/20,0), 

A(C/20,1))-(XD,YD) 

,15 



:CLS 
2024 RETURN 



FUNCIONAMIENTO 



La parte más importante del pro- 
grama son las rutinas que te permiten 
dibujar el contorno y crear el sólido. 



INTRODUCCION DEL PERFIL 



La rutina de la banda de caucho co- 
mienza en la línea 60. Las líneas ante- 
riores se ocupan del modo de panta- 
lla, colores, definición de variables, 
etc. Fundamentalmente esta rutina se 
ocupa de comprobar qué teclas han 



194 1 subrutina dibujo 

contorno 
500 LINE (BX,BY)-(X,Y),C0 
510 LINE (250-BX,BY)- 

(250-X,Y),C0 
520 BX=X:BY=Y:A$=A$+CHR$ 

(X-125)+CHR$(180-Y) 
530 RETURN 
532 1 

534 1 subrutina dibujo 

1000 F0R B=1 T0 LENCAS) 
STEP 2 

1010 X=ASC(MID$(A$,B,D) 
:Y=ASC(MID$(A$,B+1 
,1» 

1020 G0SUB 1500 
1030 NEXT B 
1040 RETURN 

1500 FOR C=0 T0 399 STEP 
20 

1510 D=C:PY=IS*Y 
1520 G0SUB 1530 





1580 XX=XD:YY=YD:A(C/20,0)=XD 

:A(C/20,1)=YD 
1590 RETURN 
1592 1 

1594 1 subrutina Lectura 

ángulo 
2000 SCREEN0:I=0:INPUT 

"Angulo de la visual 

(0-180) M ;I 
2010 IF I<0 0R I>180 GOTO 

2000 

2020 IS=SIN(I*RD) 

2022 SCREEN 2.-C0L0R C0,1 ,1 



sido pulsadas y de actualizar las coor- 
denadas de la línea estirada (los extre- 
mos de la misma se almacenan en las 
variables BX, BY, X e Y). El dibujo 
real de la línea se hace por medio de 
la rutina de la línea 500, que también 
se ocupa de dibujar la imagen especu- 
lar de dicha línea. 

Cuando se fija una línea, al pulsar 
| SPACE l , se almacenan las coordena- 
das de su extremo. 

Antes que nada, se resta un núme- 
ro de cada coordenada para tener un 
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punto medido con relación a la línea 
central, esto se lleva a cabo en la lí- 
nea 520. A continuación se cargan di- 
chos números en una cadena de carac- 
teres que se añade al extremo de A$. 

Con la rutina de la línea 2()00 pue- 
des introducir el ángulo del punto de 
vista; se acepta cualquier ángulo entre 
0 y 180 grados. Los valores 0 y 180 co- 
rresponden a la figura vista totalmen- 
te desde abajo o totalmente desde 
arriba, lo que se puede denominar la 
planta. Un valor de 90 corresponde al 
alzado, como si miraras la figura pues- 
ta sobre una mesa y tus ojos estuvie- 
ran a la altura del borde de la misma. 
A continuación el programa salta in- 
mediatamente a la rutina de la línea 
1000 que se encarga de crear y dibu- 
jar el sólido tridimensional. 



LA TERCERA DIMENSION 



Esta rutina utiliza las líneas que has 
dibujado y el ángulo de vista introdu- 
cido para transformar el contorno en 
un sólido de aspecto tridimensional. 

En la línea 1000 hay un bucle con- 
trolado por la variable B, que va se- 
leccionando cada una de las líneas y 
tomando sus coordenadas terminales 
de la cadena A$. Seguidamente salta 
a la siguiente rutina, que comienza en 
la línea 1500. 

Esta rutina desplaza las coordena- 
das de manera que tengan en cuenta 



el punto de vista seleccionado por tí y 
a continuación dibuja la línea que uti- 
liza estas coordenadas desplazadas. 
Este proceso se repite 20 veces, de 
modo que tu línea original se repite en 
20 posiciones diferentes alrededor de 
un círculo. Si quieres reducir la reso- 
lución o lo que es lo mismo el número 
de líneas, no tienes más que sustituir 
el valor 20 de las líneas 1500, 1570 y 
1580 por otro valor mayor. Si en cam- 
bio lo que quieres es aumentar la re- 
solución, tendrás que sustituir 20 por 
otro valor más pequeño, pero en este 
caso también tendrás que aumentar la 
primera dimensión de la matriz A(), 
en la línea 16. 

La rutina vuelve después a la línea 
1()(X) para hacer lo mismo con las si- 



guientes líneas. Tomando las líneas de 
una en una, la imagen va siendo cons- 
truida por pasos, como podrás com- 
probar al ejecutar el programa. 

Si observas el programa cuidadosa- 
mente, podrás ver que el procedimien- 
to para dibujar la primera de tus líneas 
es ligeramente diferente del seguido 
para las demás. Esto se debe a que las 
coordenadas desplazadas que va cal- 
culando siempre corresponden al final 
de las líneas, mientras que las coorde- 
nadas del comienzo son los finales de 



las líneas anteriores. Sin embargo en 
la primera línea hay que calcular tam- 
bién las coordenadas de comienzo. 

Las líneas 1560 y 1565 sirven para 
comprobar si se está trabajando sobre 
la primera línea. Cuando es B = 1 , sig- 
nifica que se trata de la primera línea, 
mientras que cuando es BF = i, sig- 
nifica que ha habido un desplazamien- 
to del origen de la primera línea. 

Con este desplazamiento, lo que su- 
cede es que se calculan las nuevas 
coordenadas y se almacenan en la ma- 
triz A(). Estas coordenadas formarán 
entonces el comienzo del siguiente 
conjunto de líneas. 

Si el primer movimiento no corres- 
ponde a un blanco, significa que se ha 
empezado a partir del centro por lo 



que los «rayos» se dibujan a partir del 
centro hacia las coordenadas termina- 
les de las líneas. 

De esta forma, para cada línea de 
tu dibujo se dibuja un anillo completo 
de líneas, cuyos extremos quedan uni- 
dos por un círculo, produciendo un 
efecto tridimensional. Las coordena- 
das de cada punto terminal se almace- 
nan en la matriz A() de forma que el 
ordenador conoce las posiciones de 
partida del siguiente conjunto de lí- 
neas. 
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pelj 



e presentamos un juego para que te entretengas, pases ratos 
falta t fc: ggs frho gues -- ^áM^idando una feajjfla de 
/héroe de tiene c<^"* 

como le sea posible, dentro de un cj 

¡ariable segvI^H^^ dé~|3ífeafl!; 




elegidb^y.'i^presenta el tiempo .(¿fe* .A piloto del hel icópte^ dj^transpor te 
considera suficiente para contentar al "jefazo" (toda esta histoi^a del "jefazo" 
y del piloto viene explicada en las instrucciones del programa). 
Bruce se mueve con las teclas de cursor o con un joystick y dispara con la 
barra de espacios o con el botón de disparo. Los disparos son direccionales, es 

decir, se dirijen hacia donde está mirando nuestro héroe. Por ello, antes de 
disparar, por ejemplo, de frente hay que haber colocado al protagonista en esa 

dirección. 

Cuando los secuestradores, que tM^lén disparan, hayan derribado a Bruce hay 
que pulsar la teclííí^ífc 



Hay cuatro escena^ 
Tarragona) y cinco- ,n 
ponen mas difíciles 
aviadores le 




levante; 
Uflaijvida menos, 
os en la aventur 
Té^Jíf icultad 




ente, pero con 



pto, Méjico y 
y 5 las cosas se 
secuestradores 



Al término de la aventura 
informe del resultado de la 



IgJ ~ae~~aif icultad. En lp&J^jlULéfi 4 
parí" Bruce. Además de dispararÍie, los 
atacarán con sus bombas y los Ninja lanzarán contra él temibles 
estrellas Shuriken. 
(cumplida la misión o muerto Bruce) podrás ver un 
misma. En el informe, además de otros datos, verás 
la puntuación obtenida. 

Feo. Javier Miró Guerrero 

^ ^ ^ ^ ¿tf, kJh ^ * * ¿ 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 




= pó 



isco Javier 



Miro Guerrero 




= ' 1 




LF=5 



CLEAR 1000 
0PEN"GRP:"AS#1 
SCREEN 2 
DRAW"BM9,9" 
PRINT#1/'UN 
G0SUB 860 1 LEE 
G0SUB 41 0 1 PRESE 
BEEP 

PLAY M V1105L4CDEF+CDEF+ABFABGD-RABABCD03C.RABCBAF- M , M V1204L8ABABABABABABABABA 
BABDEFDEFDEFGRDEDE- FEFE-EF+ACDCAF03C . R05 CBABCCACBAEF+","V1 302L2RRABAB03DEF-A 
CDC.R05BCA M 
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170 
180 
1 90 : 0fiñ4^f 
200 WWf 
210 BEHRXI 
220 IF NOT 





'S&JB 13001PANTALLA GRECIA,. 
SEMIPANTALLA 

" J 1660,1660 
=0:Y=156:BN=0 
M THEN STRIG(TS) 
230 IF NOT SA THEN INTERVAL ON 

240 PUTSPRITE 2 , ( X,Y) ,1 ,TB : PUTSPRITE 3,(X,Y) ,8,TB+1 

250 IF DP AND HTOlQ AND MT<>16 AND MT<>18 THEN LT=LT+1:IF LT>(45-NV*5) THEN GOS 

UB 2430:DP=0 
260 IF X<11 THEN X=1 1 
270 IF X>240 THEN X=240 
280 IF STICK(TS)<>0 THEN G0SUB 2530 
290 IF TIME>* ( ^«Sfllttg^N-ttiB^TO 330 
300 IF BN THEN RE TUR jffl r4WZf?.¿H y 'i 
310 IF TIME MOD 5 'Q&a jMEjj L mCO^O 



FERVAL 



320 GOTO 220 
330 STRIG(TS)STOP:INT 
340 GOSUB 3670:G0SUB 3930 
350 IF PN=1 THEN GOSUB 2590 
360 IF PN=2 THEN GOSUB 2840 
370 IF PN=3 THEN GOSUB 3120 
380 IF PN=4 THEN GOSUB 4110 
390 GOSUB 4020 
400 GOTO 180 

4l0gj»***¿* «jtrfBM* **** 

420^^" 
430 ; SXfflEk 

440'7wW*f6í 



OFF 





STEP 16 




450 FOIVN^TO 255 STEP 16 
460 CIRCLE(N,H),7,14 
470 DRAWF2H2" 
480 NEXT N,H 

490 CIRCLE(120,96),140,7,,,1/1 .88 
500 PAINTSTEP(0,0),7 
510 CIRCLE(120,96),140,15,,,1/1 .8 

520 l ine ( o ,0 ) - caa¿4¿p > ■ " ítrímUt 

530 DRAW'CIbmlO^O" .'gVVl 
540 PRINT#1 /'SUERTE, ''S^íT^Bruce ! " 
550 FOR N=0 TO T^^mB^f--^' 
560 GOSUB 4590 , MÓV^sVr&TES PRESENT.** 
570 SCREEN 1 :KEY0FF 

580 LOCATE 10 / 22:PRINT" Menú ":PRINT TABC1 1 ) " 
590 PRINT:PRINT"1 .-Poner Nivel" 
600 PRINT:PRINT"2. -Elegir stick/strig" 
610 PRINT:PRINT"3. -Empezar" 
620 PRJNJ.CHR$(13).;E&INT:PRINT:PRINT 





630 í1WRa«R 

640 If Jabí 
650 OH-JT 
660 GOTO. 




?FB 
EN 630 
,,10,740 





INPUT 1 7 




670 
680 
690 
700 
710 



67 



CLS:INPUT"NiveLn\ 
IF NV<1 0R NV>5 Tra" 
TM=(NV*20)-2*NV 
RETURN 

CLS:INPUT"Si pulsas <return>j ugaras con 
stick 1;si <2>, juegas con el joystick 2 
IF TS>2 THEN 670 
RETURN 
RETURN 750 

'*** Pantalla Presentaci"n 




teclado, si pulsas 
.Que eliges";TS 



<1> juegas con joy 



*** 



15,± 




720 
730 
740 
750 
760 

770 flTjR^P 

780 LINE(86,0)-(246,191),15,BF 

790 'l5ÍWW^Btóí55^• T . 

800 CÓL» , *1^RINT#1 / SPC(5);"0BjET'i»6^PC<24);"========";SPCW)3í Es tu misión 

con-";SPC(14);"seguir rescatar a ";SPC(14); "la princesa que te";SPC(13);"es 
pera en garras de";SPC(13);"sus secuestradores. ";SPC(178);"S.U.E.R.T.E" 
810 M$(5) = "BM1 / 142El2M+3 / +6M+15,-9M+12,-27M+18 / -24U6E6M+9 / -6E9 D29BU8BL6D3 F9D9G6 

L3G3BM+12,-9R3E3R9E3R3U3E9R3E6R3F3D3BL12D3F3R3E6D6G3D3G9L3G6D3G6D363D3G6D3G6 
L3G3 Dl2G3L6H3D3M-33,+21 F9G6BH8BE6M-24,-37" 
DRAW "C9"+M$(5) 





820 
830 
840 



850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 



PAINT(48 r 98^ a¿^ ;j , — ^ZJ^ 

DRAW"C4BM130,130H3L3G3D3F3G3D3F3R6E3U3E3U6H3D18F3BR6BU6D3R3F3U15L3G3BR6BU3U3 
R6BD12BL3E3L3D6R6E3U12R3D4G3018E3U6H3E6R3D3L3D3R3U3B03R3U3E3R3G3R3F3D3G3L3U3 



E6 R6U3L6 D3 E¿fóH5i|«ÍjpU£& ,+12" 
RETURN '■ 

de Sprites *** 



'*** Lectura 
SCREEN ,3 



T0 
T0 



31 
31 



FOR N=0 
F0R J=0 
READ D 

S$=S$+CHR$(D) 
N! 

spr: 

NEXT.; 

REM ÚwWWlff^SPRITE 




DATA WWWWW 
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970 DATA 

,000^011 



. ^ — "°i*^tm x ay¡8M|rTir-- nrm nnrj 

^qfr^oo ,000 ,000 ;0j^Ó^|^C^üerÓ £ .000,000,128 



,000,005, 



,000 



980 DATA Ofl079gO£BúafrOOO,000,014'rfl»^^ 

,00Ü;Ó^4^O^ 28,1 28,1 28,000 ,O0flj0(aUUU,UÚ0,000,000,00ÓV^P u >#=ÍÍ 
990 DATA 000,000,000,012,012,000,000,00^,000,000,028,000,000,00^,0^,025,000,000 

,000,000,000,000,000,240,064,000,000,000,000,000,000,128 
1000 DATA 000,000,000,000,000,028,030,026,031 ,028,000,020,018,017,017,000,000,00 

0,000,000,000,000,000,000,128,000,000,000,000,000,000,000 
1010 DATA 000,000,000,000,000,000,000,031,004,000,000,000,000,000,000,003,000,00 

0,000,096,096,000,000,064,000,000,112,000,000,000,000,048 
1020 DATA 000,000,000,000,000,000,000,000,003,000,000,000,000,001 ,001 ,000,000,00 

0,000,000,000,112,240,176,240,112,000,080,144,016,016,000 
1030 DATA 000,032 ,003¡£qg3^0,000,OOQ,000,000,Oqfc^, ,000,00 

0,064,064,000,064,064,064,064,128,000,000,000,000,000,128 
1040 DATA 000,000,016,008,007,003,003,003,003,000,004,004,008,008,000,000,000,00 

0,000,000,1 92 ,1 60 v M>#'^ : ó¥>000,1 28,1 28,l78>^g>^ff|ñjGtf 
1050 DATA 000,000,000,OOü,OM,000, 000, 000,016, 001 ,OOT,® ,001 ,000,000,000,000,00 

0,000,000,000,000,000,000,000,032,000,129,130,004,008,016 
1060 DATA 000,000,000,000,000,000,000,000,000,008,005,002,000,000,000,000,000,00 

0,000,000,000,000,000,000,000,000,032,064,048,008,000,000 
1070 DATA 001 ,001 ,003,001 ,001 ,001 ,001 ,001 ,001 ,000,001 ,000,000,000,000,003,000,00 

0,000,128,000,128,128,000,000,000,192,000,000,000,000,096 
1080 DATA 000,000,000,004,004,008,006,000,000,001 ,000,001 ,001 ,001 ,001 ,000,000,00 

0,000,000,096 ,01 6 ,032 ,1 92 ,1 92 ,1 92 ,000,1 92 ,064,064,064,000 
1090 DATA 000,000,000,001,001,000,000,000,000,000,003,000, 

0,000,128,128,000,000,064,064,000,128,000,000,000,000, 
1100 DATA 000,000,000,000,000,003,007,003,003,003,000,002,0 

0 y ,0OT$jjr*)eO';í 28,1 92 ,1 60,T6ra'z83W™^,1 28,1 28,1 28^001 
1110 DÁT/rOOÍ¿{t)00,000,001 ,001 ,000,'ÍJDÓÍfite2 ,002 ,000,001 ,000,000> 
0,000,128,128,000,000,000,000,000,192,000,000,000,016,016 
1120 DATA 000,000,000,000,000,001 ,003,005,005,001 ,000,001 ,001 ,001 ,001 ,000,000,00 

0,000,000,000,1 92 ,224,1 92 ,1 92 ,1 92 ,000,064 ,064,032 ,000,000 
1 1 30 DATA 001 ,001 ,001 ,01 3 ,01 3 ,000,001 ,001 ,000,000,01 4,000,000,000,000,01 1 ,000,00 

0,000,000,000,000,000,000,000,000,000,000,000,000,000,000 
1140 DATA 000,000,000,000,002,015,014,014,014,014,000,010,010,010,010,000,000,12 

8,128,128,128,000,000,000,000,000,000,000,000,000,000,000 
1150 DATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,128,12 

8,1 28,176,l7ji-|^jl ^SÉ2C flPÚ,000,1 12,000^000,000,000,208 
1160 DATA 000,001 yOOlOílKwtTO'OO, 000, 000,0OQ"^tóaff^5W!JOOO,0OO,00O,000,000,O0 

O, 000, 000, 064, '2ÍTO ,112,112,112 ,000,080',Geo;HBO,080,000 
1170 DATA 000,000,000,024,024,000,031 ,080,000,000,056,000, ,000,000, 000, 027,000, O 

00,000,000,000,000,192,000,000,000,000,000,000,000,000,000 
1180 DATA 000,000,000,000,000,057,032,044,056,056,000,036,020,018,018,000,000,00 

0,000,000,000,128,000,000,000,000,000,000,000,000,000,000 
1190 DATA 000,000,000,000,000,000,03,000,000,000,000,000,000,000,000,000,000,000 

>48,01 0,000,000,028,000^0,000,000,21 6 

1200 * T, Hffr?f ai ~l T lftnn nnn n ^r^'ii? n friBT^flÉ" nnn nnn n ñf í" 

0:,C " 




00,00 
€0,00 



0,003,000,00 



1210 DATA 




004,052,028,028,000,036,040,072,072 



Qfifi¿ojQ i ,o aQ r aQ mpo ' 



,01 o, 01 6, 03¿ ^Uo ji^Q(b^, 000,001 ,0.00^0 

O ,00(¡*0'>«bOOO ,1 28 ,1 28 ,000 ,000 ,jp3 v»UÜ , 1 92 ,000 ,000 ,01 6 M^ifr^w^^' 
1220 DATA 000^00,000,000,004,004,0O4,M3,001 ,001 ,001 ,002, 004 ,'(W4' ¿$84,000,000, 00 



INPUT 1 9 




000,000,000,000,000,00 



1230 DATA 064, 160, 064, 000,000, 000 ;p00, 000, 000, OODSPI 
0,000,000,000,000,000,000,000,000,000,000,000,0 

1240 data ooo,o64,dW,M>f^>$^^^ 

0,000,000,000,000^04^000,000,000,000,000,000*0 



,000,000,000,000,00 



>000,000 



1250 DATA 128,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,00 

0,000,000,000,000,000,000,000,000,000,000,000,000,000,000 
1260 DATA 009,008,007,000,003,000,000,003,001 ,000,000,000,000,000,000,000,144,01 

6,224,000,192,000,000,192,128,000,000,000,000,000,000,000 
1270 DATA 000,000,000,003,000,001 ,001 ,000,000,000,000,000,000,000,000,000,000,00 

0,000,192,000,128,128,000,000,000,000,000,000,000,000,000 
1280 DATA 017,01 0,032 ,01 8,069,1 07,043,039,01 2,078,044,004 ,020,039,027 ,ÜQg,020,03 

j¡¿*W£_il&tr*¡SWl A 70 ,1 8S i 2ja4¿2 z Q¿fi|fr.,028 ,045 ,1 " 
129CnñfW 



1300: lififc* 
1310H^ÍM¿¿ 




."tarCriega ***.! 

'r-Jí 





.' I 



1320 SCRÉ El*' 

1 330 DRAW"bm8,95d9r3d3g3f 3d3g3d1 2 r36u36 L36BM+6 ,+9D3F3G3D3F3R3Ul 5L6BD42BR1 8D3M+45 
,+30Rl7lU6L17lD6U6M-45,-27R3U3M+48,+24D6U6R159D6U6L6U6L147D6U6M-51,-2lD3U3R 
3U3M+54,+18D6U6Rl35D6U6L3U63H3U3H3BU9BR3Ll23M-12,-3U3E6U3E3U3M+6,-3D24" 

1 340 DRAWU3R1 20D3U3L6U6L1 1 4U6R1 08F6H6L21 H3L3U3H3L78" 

1350 DRAW "BM101,74" 

1360 M$(8)="D3F3D69G3D3R15U3H3L9R3U69L3R6D69L3R6U69E3U3L15" 
1370 FOR N=1 TO, 
1380 DRAW M$(8)+.*E 

1390 NEXT N ; 1$) } ■ Tf^j ~ 'jr 1 ^£ 

1 400 DRAWBL1 47BTj3W#<S¿ OT^M" b 1 ,-1 0D1 2U24M^^^ af f Fg\" i7Ul 2M+45 ,-1 2BM-36,+9D5 

6BR12BD3U62BRTMÚ3i¡^ír2 ,, 
1410 PAINT(100,100) 
1420 PAINT(127,100) 
1430 PAINT(154,100) 
1440 PAINT(181,100) 
1450 PAINT(208,100) 
1460 PAINT(225,140) _ mifc 

1470 pwiiiau^fc-j^^* 

1 480 DR A^C^9«lajl5lR7lJ37 R37 U7 M+42 





WfH7,-3R85Fl.OR ; 




F3D4 



20 INPUT 



1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 

1820 
1830 
1840 
1850 
1860 
1870 
1880 

1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 




-fÍ55,131) / 1 
§55/178) /! 







PAHtfC2-3$,149),1 
RETURN 

'*** Semi panta L La Marcadora *** 
LINE(0,0)-(255,35),2,B 
LINE(7,7)-(248,28),2,B 
PAINT(1,1),2 

DRAW"BM8,9" : COLOR 1 :PRINT#1 , "VIDAS TIEMPO ZONA MUNIC.(%)+ -" 
DRAW"BM8,18":C0L0R 1:PRINT#1," "LF;" ";PN+1 
FOR N=8 TO 25 STEP 7 
COLOR 2:DRAW"BA 
PRINTn," 
NEXT N 

LINE(155 / 18)-(I 
RETURN 

'*** Rutina de disparo *** 

'di sparo 

SA=1 

IF LO90 THEN GOSUB 3830: RETURN 
LC=LC+1 :LINE(LC+1 55,1 8)-(LC+1 55,28) ,1 
GOSUB 3370 
STRIG(0)OFF 

k-4Q$tíB 1790 
SUB 1860 
■HEN GOSUB 1930 
¡IG(0)ON: RETURN 
FOR N=X+20 TO 255 STEP 17.5 
GOSUB 220 

IF N>FS AND MT<>16 AND MTO20 AND MT>1 5 THEN PUTSPRITE 0,(0,0,0,28:60508 2 
360: GOTO 1990 
PUTSPRITE 0,(N,169),1,28 
NEXT N 

PUTSPRITE O^uwawy..- 
RETURN ¡ J¡*'' 

FOR N=X-4 JÓ"& 
GOSUB 220 

IF N<FS+9 AND MT<> 
2360: GOTO 1990 
PUTSPRITE 0,(N,169),1,28 
NEXT N 

PUTSPRITE O, (0,0) ,0,28 
RETURN 

rr """<ÍÍiiiV r in iii [Ijjjf^ijMlliT'' X+24 
D^ 

PUTSpffl to O ,(N,Ú D) ,1 ,28 
IF Vl^FS+'W' OR N=FS+9 OR N=FS+1 








AND MT<>22 AND MT>15 THEN PUTSPRITE 0,(0,0) ,0,28:G0SUB 




GOSUB 2360 




INPUT 21 



1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 

2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 

2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 




¡55,0,28 






RCTOTjfr „ 

'★¿tffOLttí ACION SECUESTRADORE'S**H¿\ 
SA=1 

Y=156:LT=0:INTERVAL STOP 
N=RND(-TIME) 

IF RND(1X.5 AND NV=5 AND CM=0 THEN GOSUB 4510 

IF RND(1X.3 AND NV>3 AND CM=0 THEN FS=INT(RND(1 )*256) :G0SUB 4300 
CM=1 

FS=INT(RND(1)*256) 

IF FS<30 AND FS^THEN MT=16¿fi0T0 2240 
IF FS>220 AND FS<239 THEN MT=18:G0T0 2240 
IF FS<8 OR FS>239 THEN 2050 
IF FS>X THEN MT*W¿,Í JXÉu 
IF FS<X THEN MT¿12l 

BN=1 : PUTSPRITE 10,("FS*f28) ,1 ^OiPUTSPRITE '\1,Tfs'jhk&) ,2,1 1 
GOSUB 220 
LT=LT+1 

IF LT>20 THEN PUTSPRITE 10, ( FS,128) ,12,MT:PUTSPRITE 1 1 ,( FS,128) ,2,MT+1 ELSE 

GOTO 2150 
LT=LT+1 
GOSUB 220 

IF LT<(45-NV*5) THEN 2190 
BN=0;GOSUB 2430 
SA=0:RETURN 220 
BN=1 : PUTSPRITE 10,(FS,156), 

GOSlK^HI ' 

LÍ=tT+>> 

IF LT>21 THEN PUTSPRITE1 O, ( FS,1 56) ,1 2, MT+4 : PUTSPRITE 1 1 ,< FS,1 56) ,2,MT+5 ELS 

E GOTO 2240 

DP=1 

LT=LT+1 

GOSUB 220 

IF LT<(45-NV*5) THEN 
BN=0: GOSUB 
RETURN 
•***LE HAN 
CM=0 

IF MT>15 THEN T¿=1?# ELSE TC=134 

PUTSPRITE 10,(FS,TC),12,24:PUTSPRITE 1 1 ,( FS,TC) ,2,25 
F0RG=0T0199:NEXT 

PUTSPRITE 10,(FS,TC+6),12,8:PUTSPRITE 1 1 ,( FS,TC+6) ,2,9 
EN=EN+1 
SA=0:LT=0 

INTERVAL 'TÉBCT8^a*G(TS>0FF ' 

GOSUBhfeijJL: PUTSPRITE 2,(X,Y) >1^i^SPRITE 3, (X, Y) ,9,9 ' • . 




11,(FS,156»v 








22 INPUT 



2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 



2630 




50),5,BF 
jÉSp^r^O" : PR INTflí^FTiTWm 
¡:IF A$<>"s"AND A$<>"S" THEN 2500 



TB=0 

X=X+4:TB=2 
X=X-4:TB=4 



*** 




2640 
2650 
2660 
2670 
2680¿2> 
2690 P 
270Q' 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 



U 

IF'1#>0>rHEN SA=0:LT=0:RET'URN/EL^ RETURN 4110 
SA=0:STRIG(0)OFF 
'*** Lectura de Stick *** 
SK=STICK(TS) 
IF SK=1 THEN 
IF SK=3 THEN 
IF SK=7 THEN 
RETURN 

**** Pantalla 
COLOR 10,11,5 
SCREEN 2 

M$( 3 ) = "BM96 ,30W€ÜP|¿fJí ÍMÉL5*fTn+57 ,-81 M+I^K 
M-1 2 ,-1 5 1^1 8 ,+96 !»hK?^ 

D18BL6R25M-3,-6BR5BD3W+9,+3M+9,-18R6BL6M-18,' 
BM-6,+6M+18,-15" 

M$(4)="R6M+9,+18BM-3,-9R49M-10,-12BM-60,+20M+9,-18BM-18,+15M+9,+3R24BM+30,- 
90M+18,-2lM-9,+30BM+9,-30M+72,+72L42" 
DRAW M$(3) 





l20,+129L60M-66,-78B 
, 3M+11,-17BD21M+6,-9B 
9,+3R24M-9,-1 8BM+6,+1 2R1 5 




DRAW M$(4) 
PAINT(93,40) 
PAINT(60,102) 

(95,175) 

(0il>ft42)-(2,142),7 
LINE-(95,24),7 
LINE-(150,83),7 
LINE-(169,64),7 
LINE-(247,142),7 
LINE-(255,142),7 
PAINT(0,0),7 
LINE(255,14i)c! 
LINE-(218,1.Ó tflUL, 

14 





DRAW"L60M+6,,í) 




6M+11,-16M0,141'* 



Mexicana *** 



,-3 M+6 ,-6Uts8il 

PAINT(200,191), 
RETURN 

'*** Pantalla 
COLOR 1,15,7 
SCREEN 2 

M$(1 ) = "CHS4bm1 1 0,50R24D12L9U3L6D3L9U4M-1 5,+1 M+1 5 ,-1 U4M-1 5 ,+6U3M+1 5,-6D4R24 
BD3L24BD4BR24L39U3BD3M-72,+96Rl5M+60,-96R3M-57,+96R9M+48,-96M-39,+96Rl2M+36 
96JN+36 ,+9.6jR3fh Sl 36 ,~96BR1 8M±4,2 ,+96R3M-iiZ, a r i ?6 " 






INPUT 23 




2930 

2940 vPj^JNT í 1 70 , 1 2 5 ),yt'4 
2950 PAIÍriTfSÍT^ilA 
2960 LlW(1«163>-<91 ,61), 7 
2970 LINE-(91,55),7 
2980 LINE-(109,47),7 
2990 LINE-(138,47),7 
3000 LINE-(138,59),7 
3010 LINE-(239,163),7 
3020 LINE(0,159)-(255,159),7 
3030 PAINT(0,0),7 
3040 LINE(0 / 160)-(255 í 160) / 3 
3050 PAINT(5J70),3«^7te,i* 
3060 PAINTC1 1 2,51 ) , ; 1 «Aí^SfcK^ 
3070 PAINT(59,147)>4¿Y¿ 
3080 PAINT(130,67),14 
3090 PAINT(48,147),14 
3100 LINE(0,159)-(255,159>,1 
3110 RETURN 

3120 '*** Pantalla de Tarragona 
3130 COLOR 1,11,7 
3140 SCREEN 2 

31 50 M$(9)="R1 17D363L1 1 1 H3U3D3F3D3R1 1 1 U3D9L3" 
3160 DRAW "BM80 / 50XM$(9);" 
3170^^.^1 i: ¿ffiíÍ||lÉAW''L12U6R 
3180 M$(10)«"D6R111U6D12R3G3D3L. 

3190 ■¿kffi:tijkiür ' 

S$="D60L3U60R3L6D60R3L3BU60 
DRAW S$+"BL12"+S$+"BL63"+S$+"BL12"+S$ 





*** 



3200 
3210 
3220 




ÍÜ3H3L57G3D3L6.ÍJ]|: 




3U6D6L 



3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 



DRAW"BD60L3D3R39U3L39BF3D6R9U6D6R9U6D6R9U6D6R3D6L6U6L9D6L9U6L6D6R39D3M-9 / +3 
L9U6L1 2D6L1 2U6R3L3D6R33U57E3L6BR51 L3 F3D36L3D3R39U3L39BR3D1 5L3D6R39U6L3U1 2L9 
D6L9U6L9D6L3R30D6L3U6L9D6L9U6L9D6R9D6R12U6R9BL72H3U48E3L3" 
CIRCLE(140,106) ,22,1 ,6.28,3.14 
CIRCLE(137,1_06) 
PAINK114, " 
PAINTd 15,15 
LINE(79,48>,« 
PAINT(0,0),7 
LINE(122,107)- 
PAINT(130,130),7 
CIRCLE(140,106),18,7 
PAINT STEP(0,-2),7 
LINE(0,165)-(255,165),3 
PAINT(2,175),3 
fcI^Q/165) -(255,1 65), 1 




65),7,B 





•di S| 

sou 



IDOS 



*****: 





24 INPUT 





340 
3410 
342CU 
3430-. S 
3440 S 

3450 SOUND 12,16 
3460 SOUND 13,0 
3470 RETURN 
3480 'explosión 
3490 SOUND 0,0 
3500 SOUND 1,5 
3510 SOUND 2,0 
3520 SOUND 
3530 SOUND 
3540 SOUND 
3550 SOUND 6,30 
3560 SOUND 7,0 
3570 SOUND 8,16 
3580 SOUND 9,16 
3590 SOUND 10,16 
3600 SOUND 11,0 
3610 SOUND 12,5 
3620 SOUND 13,0 
3630 FOR DE=1 T030 rNEXTDE 
3640 SOUND 12,56. 
365 " 
3660 
3670^4 
3680, ' 

3690 sdÜNb'^,90 
3700 SOUND 1,200 
3710 SOUND 4,255 
3720 SOUND 5,15 
3730 SOUND 6,21 
3740 SOUND 7,8B00000000 
3750 SOUND 8,16 
3760 SOUND 9,1 
3770 SOUND 10,16 
3780 SOUND 11,2 
3790 SOUND 12,0 ' 
3800 SOUND 13,14 
RETURN 







255 







3810 
3820 
3830 



'*** MUNICION AGOTADA *** 

IF FM THEN RETURN ELSE BEEP: INTERVAL ON: COLOR ,,8: COLOR ,,7:STRIG(TS)0FF: FM 
=1 



3840 LINE(0,83)-(255,101),1,BF 
3850 J^AM'-B^I 5 J^ j*ftpR 10:PR 

3870 RBTOiRSTKX-'j--' 
3880 T-fV^féé UmC^t TIEMPO 
3890 LlNK5O0)-(103,32),5,BF 




OTA 




INPUT 25 





3900^tf^OBJ,,;DRAW''BM7D,22'':PRliH.ftL,.USING!!i<#JÉ^TIME/50) 
391 0 *mms£r 
3920 '**EL HELICOPTERO LE RECOG 
3930 Ititífh aHftSff! .' ; FOR N=0 TÓ' 
3940 DRW^'d^uSbgS" 
3950 NEXT N 

3960 FOR N=156 TO 30 STEP -.125 
3970 PUTSPRITE 2,(120, N) ,1 ,6 
3980 PUTSPRITE 3,(1 20, N) ,9,7 
3990 NEXT N 
4000 RETURN 

4010 '**EL HELICOPTERO LE DEJA*** 
4020 FOR N=30 TO Y STEP .5 

4030 PUTSPRITE 2,(l1$3|KBc¡tagSQBCTE 3,(120, 
4040 NEXT N ¡' 
4050 PUTSPRITE 3,(1»€l!i¡¡> 
4060 FOR T=15 TO O STE^JV,; 

4070 SOUND 6,31:S0UND 13,Ó*f§0UND 7,&B10111110:SOUND 8>F:S0UND 9,T:S0UND 10,T 
4080 NEXT T 

4090 PUTSPRITE 3,(1 20, N) ,9,7 
4100 RETURN 
4110 '*** FINAL *** 
4120 PC=(EN/LC)*100 
41 30 WL= ( ( EN*PC*NV*1 000) / LO +LF*PN 
4140 COLOR 15,1,1 
4150^¡QR£E^.J>¿i; 

4160 PRWl*ttCi r oábo"" , ieL juego" : ¿ 

r^ar! ii ' J, 




4i70; T p^iVrr 

4180 PRjftjT 
4190 PRiWT:'' 





seguido matar ^ENiJ/'secuestradores" 
NT" Has elegido el 'mvér*;NV 
4200 PRINT: PRINT " Has acertado el"; :PRINTUSING"##.##";PC; :PRINT"% de tus dispar 
os" 

4210 PRINT: PRINT" Has Llegado hasta La pantalla";PN 
4220 PRINTrPRINT" Vidas que te quedaban al acabar:";LF 
4230 PRINT: PRINT: PRINT" Tu puntuación es de "; :PRINTUSING "###,###";WL 
4240 PRINT: PRINT: PRINT" <SI Q UIER ES JUGAR OTJJA,,pulsa la, 
4250 A$=INKEY$: I K^^HSÍp*É§¡^ 
4260 IF A$="0" OR A*?%S^^JRlÜIN. ELSE GOTO 4Í 
4270 BEEP ■!r-Í vAJ.' 3&t¿^r :r " 

4280 END ••. 3¡^X 

4290 '*** MOVIMIENTO í DTO BOMBA*** 
4300 SA=1 :BEEP: INTERVAL OFF:STRIG(TS)OFF 
4310 FOR Z=30 TO 160 STEP 9 

4320 PUTSPRITE 7,( FS,Z) ,1 ,29:PUTSPRITE 8,( FS,Z) ,13,30 
4330 GOSUB 2530 

4340 PUTSPRITE 2, (X, Y) ,1 ,TB: PUTSPRITE 3,(X,Y) ,8,TB+1 
4350 SOUN^CZ 
4360 SOT 
4370 S0U|(fiÍ|''|l!f5 
4380 NÉ7H* 
4390 G0SUBtÍ54¡ 





5fN^»>16-(Z/105 j¡; 





26 INPUT 



4400 

4410 Íf¿j&9 



U,6,31 :P 
r ^p'"FS>X-4 THEN 




4420 !g^H nM f ^jg^09) ,6,31 / 
4430 SÁ=Ón?63iWN ' 

4440 ' ***lxfiHA)TA POR LOS AIRES**'*'*/' 
4450 PUTSPRITE 2,(X,Y) ,1 ,24 : PUTSPRITE 3,(X,Y) ,8,25 
4460 X=X+3:Y=Y-3 

4470 PUTSPRITE 2,(X,Y) ,1 ,8:PUTSPRITE 3, (X, Y) ,8,9 
4480 X=X-2:Y=Y+2 

4490 PUTSPRITE 2,(X,Y) ,1 ,8:PUTSPRITE 3, (X, Y) ,8,9 
4500 Y=156:RETURN 

4510 BN=1 : INTERVAL OFF : STRIG(TS) STOP: FOR S=0T0255STEP8 
4520 PUTSPRITE 10,(5,1,60) ,6,26: PUJ£f RITE 11 ,(S,160) ,8,27 

T4 THEN GOS 
:BN=0 : RETURN 



) ,6,31 : F0RC=QT099:NEXT 
2470 




4530 IF STRI6(TS)otP i 

PUTSPRITE 11,(S,^ífejf? 
4540 IF S>X+2 THEN 6é*ÉlB,,,Í4 




•BN=0 : RETURN vi? 




10,(S,209),6,26: 



4550 SOUND 0,255-S : S0U# SOUND 6,32:S0UND 1 >.: 
4560 GOSUB 240 
4570 NEXT S 
4580 BN=0 : RETURN 
4590 REM PRESENTAC .SPRITES 
4600 AA=0 

4610 IF AA<60 THEN PUTSPRITE 0,( AA,120) ,1 ,2 rPUTSPRITE 1 ,( AA,120) ,9,3 
4620 IF AA>60 THEN PUTSPRITE 0, ( AA,1 20) ,1 ,4 : PUTSPRITE 1 ,( AA,1 20) ,9,5 
4630 AA=AA+1 

4640^SffiiI|SÍf«Íi'l»^A) ,1 f 2<)r^^0^m^k) ,13,30" 
4650 SOUND 13,0:S0UND. 7,0:S0UND 1T~lt"|fljr]ri, TTfji ~ ril "í 11 /H 

1 # AA: SOUND 0,255-AA 
4660 l?ffl<m THEN GOTO 4610 ' ,3 
4670 GÓSUB W80 
4680 PUTSPRITE 1 ,(AA, 120) ,8,31 
4690 FORT=0TO1000:NEXT 
4700 RETURN 



•w 




SOUND 



►|m hfn ¿|h hjn tfl ^» rfi (ft hJh ifi i^i hf« h|h |$| vfi i^i i nf» hjn i v{n »^ i^i tffl ^ tfft hjn i j^h f$ i i^i ffc ^ i-"f* tifli i^i i^i i-fi i^i h|h 't* ^ 4* •^'í' 





INPUT 27 






m 



ascal es un programa de carácter didáctico, destinado principalmente a alumnos 
de séptimo de EGB . La materia que trata es física y el tema la prensa 
hidráulica. SiUQbietivo es proporcionar una noción clara de este principio 
¡Vmw — Vi c3escut>ierto P° r Pascal. nr ,.rf¥ 

El usuario re*^^ que hallar la razón ff^Ml jC^e r z a pequeña 

de unos P < ¡5fl^^?jj3?^» s c,aí> Í^5{L , ^ e elevar un pesado cami ¿W¡¡^ El 
programa se desarrolla en base a una serie de preguntas. Si la respuesta a las 

mismas es correcta, una prensa, representada gráf icaiúSht'é ' en lapantalla, se 
pondrá en movimiento. En caso de una respuesta incorrecta, el programa dará la 
solución e invitará a responder a nuevas preguntas. 
Hay tres secciones fundamentales en el programa. En la primera se experimenta 
con la potencia aplicada al émbolo menor de la prensa. La segunda se ocupa de la 
superficie de este émbolo y de su influencia al elevar el camión. Por ültimo, la 
tercera sección es la encargada de plantear, de forma aleatoria, una serie de 

preguntas. Para ayudar a resolverlas el programa ofrece la posibilidad de 
utilizar el ordenador como calculadora. Al terminar se reanuda la ejecución. 





Jesús typ 



inez 



18» 




10 SCREEN 2,3 
20 FOR M=1 T0 7 
30 N$= M " 
40 FOR 1=1 T0 8 
50 READ N :A$=CHR$(N) 
60 N$=N$+A$ 
70 NEXT 
80 B$(M)=N$ 
90 NEXT 

100 DATA 56, 56.,56,S|,5£f 0,0,0 

110 DATA 31,23U^a^^^8J»fa8,48,3,3,3,3,3,63,63,6 
1 2 ' 1 2 / 1 92 ^M^^f^ ^52, 252, 252, 0,0, 0,0, 0,0 
120 DATA 0,28;!S85^;Ttf7rBWW 
130 PSET(84,30) 

1 40 DRAWS4C1 D40R1 1 9U40L24D35L89U35L6" 
150 0PEN "GRP:"F0R 0UTPUT AS#1 
160 SPRITE$(1)=B$(7)+B$(1)+B$(6)+B$(6) 
170 SPRITE$(2)=B$(2)+B$(6)+B$(4)+B$(6) 
180 SPRITE$(3)=B$(3)+B$(6)+B$(5)+B$(6) 
190 Y=10:X=13:Z=25:R=1 
200 LINE(85,32)-(90,69),R,BF:LINE(90, 
2Q¿,69),R,BF 

SPRITE 3, (176, Z), 15,3 
*Í| 1,(81, Y) 




|,255,255, 



66)-(202,69),R,BF:LINE(180,Z+6)- 






28 INPUT 








R=";P*N;"Kp" 

r=";K*N;"cm2 
s:P/Sp = R/Sr" 
' Kp" 



$2, (176, X) ,9,2 
■)-(250,130),6,BF^ÜS=J 
5)-(250,192),12,B 
260 PRESET(20,82) : PRINT#1 ,"=== PRENSA DE PASCAL ===" 
270 PRESET(20,95):PRINT#1,"P (potencia) =5Kp" 
280 PRESET(20,115) :PRINT#1,"R (camión) =6000Kp" 
290 PRESET(20,150) :PRINT#1 ,"C0N LA FUERZA PEQUE% A (P) SE 
300 PRESETÍ20, 165) :PRINT#1, "ELEVA UN PESADO CAMION (R)" 
310 FOR 1=0 TO 3000 .¿NEXT 
320 GOSUB 15^jy^ 

340 PRINT#1<tfr>tg ^«*^ |OSIBLE ELEVAR UN 
350 PRESET^LTfiw).: PRINTW^CAMION de 6000 Kp con un 
360 PRESET (20,1 1 0) : PRINT01 /'POTENCIA de 5 Kp" 
370 PRESET(20,120) : PRINT#1 ,"( DONDE ESTARA LA CLAVE ? 
380 PRESET(20,155):PRINT#1,"( LA BUSCAMOS ?" 
390 PRESET (20,170) :PRINT#1 /'pulsa S o N (si o no)" 
400 GOSUB 1500 

410 IF M= 78 OR M=110 THEN 590 
420 GOSUB 1550 
430 GOSUB 1430 

440 PRESET(20,85):PRINT#1,"P= ? 
45fePBft8ET(20,100):PRINT#1,"Sp=";K;" 

».Q,115):PRINT#1,"la 
Í2l25):PRINT#1,"HAL 
|WPlF B$="" THEN 480^_y,v.2¡ 
fB$)':IFVA<48 OR VA>57 TTON 480 EL3F , t¡=VAL ( B$) 
500 PRESET(20,150):PRINT#1, "valor de P=";H;"Kp" 
510 IF H<P THEN 550 

520 PRESET(20,160):PRINT#1, "CORRECTO con";P;"Kp es sufic." 
530 GOSUB 1190 
540 GOTO 560 

550 PRESET(20,160):PRINT#1,"MAL La soLuc. es";P;"Kp" 
560 PRESET(20,170):PRINT#1,"( OTRO EJERCICIO ? (S o N)" 
570 GOSUB 1500 

580 IF M=83 OR M=115 THEN 420 
590 GOSUB 1550., IT íjf 
600 REM SECCIOlWNffij}^^ 

610 PRESETÍ16 ^J0^%{Í)MaMfa1i\r "SECCION SUPERCIE DE POTENClJitJ^ 
620 PRESET (20^T^.:.inrr^JWíffiLa ecuación es:P/Sp = R/Sr 
630 PRESET(20,1 55) :PRINT#1 , "(VEMOS ESTA SECCION ?" 
640 PRESET(20,170):PRINT#1, "PULSA S o N" 
650 GOSUB 1500 

660 IF M=78 OR M=110 THEN 1650 
670 GOSUB 1430 
680 GOSUB 1550 

690 PRESET (20,85) :PRINT#1 , "la ecuación es: P/Sp = R/Sr" 
700 PRESET(20,95):PRINT#1," P= 
710 PRESET(20,110) :PRINT#1 ," Sp 

,7, ^tt¿^í*íá¡p.* 1 25) : PRINT#1 / " HAL 

J23Í¡^INKEY$:IF B$="" THEN 730 

O 









INPUT 29 





k¡i;ÍVAL(B$) 



;C(B$) :IFVA<48 0RVA>57 

820 ^ 
•PRESEfWDyl'50) : PRINT#1 ,"e l váW-de Sp="*fl; ,, cm2" 
770 PRESET(16,160) :PRINT#1 /'BIEN Lo máximo seria";K;"cm2" 
780 GOSUB 1190 

790 PRESET(20,170):PRINT#1,"(0TR0 EJERCICIO? (S o N) " 
800 GOSUB 1500 

810 IF M=78 0R M=110 THEN 870 ELSE 670 





WH I 




820 PRESET(20,15C» 
830 PRESET(1^6ffl|- 
840 PRESET(20,170) 
850 GOSUB 1500 
860 GOTO 81 O^ 5 ^-- • 



PftJNTn/'el valor de Sp=";H; "cm2" 
PRINT#1,"MAL Lo máximo seria";K; 
PRINTM 



¿J(0TR0 EJERCICIO? (S ó N) 




870 GOSUB 1550 

880 PRESET(20,85) :PRINT#1,"( HAS AVERIGUADO LA CLAVE ?" 

890 PRESET(20,95):PRINT#1,"SI ENHORABUENA": F0R I=0T02000:NEXT 

900 PRESET(20,105):PRINT#1,"NO..pues La clave esta en la" 
910 PRESET(20,115):PRINT#1, "SUPERFICIE DE R (Sr)" 
920 PRESET(20,125):PRINT#1,"ya que Sr es MAYOR que Sp" 
930 PRESET(20,150):PRINT#1,"en La misma proporción " 
940 PRESET(20,160):PRINT#1,"que R es MAYOR que P" 
950 PRESETC1 5 ,170) : PRINT#1 /'(VEMOS OTRA SECCION ?(S/N)" 
96Qr€MWB 1500 r,- 
fr\?ft4L&&V*&&R M=110 THEN SCREEI|M3A6¿lr<¿^JÍL., 



& =====SECCI0N 



FINA» 




: ="=":PR1NT: PRINT: PRINT 
""TOOO' PRINT 7, Én esta sección estudiaremos cualquier tipo de problemas relacionado 
s con Pascal" 
1010 PRINT: PRINT: PRINT: PRINT 

1020 PRINT" Ya prescindiremos de gráfico y podremos utilizar números de mas de 

una cifra" 
1030 PRINT: PRINT: PRINT 

1040 PRINT"( QUIERES VER ESTA SECCION ( S o N)" 
1050 INPUT A$ 

1060 IF A$="N"0R A$="n" THEN 2020 

1070 IF A$<>"S"AND A£<>£s" THEN PRINT"PULSA S o N":G0T0 105C 

1080 cls v JL i^r 

1090 GOSUB 159(l!! L,l %J¡r^ 
1100 0N H GOSUB 1660,1730,1800,1870 
1110 PRINT: PRINT ! "f OTRO ÉJEWICIO (pulsa S o N)' 
1120 INPUT A$ 

1130 IF A$="N"0R A$="n" THEN 2020 

1140 IF A$<>"S"AND A$<>"s" THEN PRINT"PULSA S o N":G0T0 1120 
1150 GOTO 1080 
1160 STOP 

1170 REM ZONA DE SUBRUTINAS 
1180 PRINT 

1190 REM SUBRUTINA DE GRAFICOS 
12WFfB K=255 TO 0 STEP-1:S0UND 0 
180 
1,(81, Y) 






1,0:S0UND 8,10:NEXT 




30 INPUT 




rt' 



M 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 

1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 

'^T480 
1490 
1500 
1510 
1520 
1530 

1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 



2, (176, X) ,8,2 

3, (176,Z),15,3$f { =? 
/52)-(90,66),1,BF 




fe 





,Z+ó)-(202,69), 





LINE'i 

LINE(85,66)-(202,69),2,BF 
LINE(180,Z+16)-(202,69) ,2,BF 
R=3: LINE (85,Y+22)-(90,69),R,BF 
LINE(180,Z+16)-(202,69),R,BF 
LINE(85,66)-(202,69),R,BF 
Y=Y+1 .2:X=X»(.4¿:Z=Z-(.4) 
IFX<3 A Jtíá|,^0__ &s 

next ftrSE^ífeíS. 

FOR 1=0 T02000 : NEXT 

Y=1 0 : X=T5ÍZ»=25 : R=T"*^" 

LINE(85,32)-(90,69),R,BF:LINE(90,66)-(202,69),R, 
R,BF 

PUT SPRITE 3, (176, Z) ,15,3 
PUT SPRITE 1,(81, Y) 
PUT SPRITE 2,(176,X),9,2 
PLAY"EFG2AC" 
RETURN 
PRINT 

REM SUBRUTINA TOMA DE DATOS DE LA POTENCIA (P) 
,íftINT(RND(-TIME)*8)+1 
K=INT(RND(-TIME)*6)+3 
L=INT(RND(-TIME)*3)+1 
N=L*100 
RETURN 
PRINT 

REM SUBRUTINA DE DECISIONES 
M=0:T$=INKEY$:IF T$=""THEN 1510 
M=ASC(T$) 

IF M=83 OR M=78 OR M=110 OR M=115 THEN 1540 ELSE PRESET(20,1 85) : PRINT#1 ,"P 

ULSA S o N":GOTO 1510 

RETURN 

REM SUBRUTINA DE BORRADO DE PANTALLA DE TEXTOS 
LINE (10,80)-(250J.32),6,BF 

REM SUBRUTINA DE PROBLEMAS ALEATORIOS vífSl 
H=INT(RND(*TÍfME") *4) +T r " 
X=INT(RND(-TIME)*1000+1)/10 
Y=INT(RND(-TIME)*100+1)/10 
Z=INT(RND(-TIME)*500+1) 
RETURN 
GOTO 980 

LOCATE 5,4:PRINT"P = ? cm2 ": LOCATE20,4:PRINT"R =";X*Z;"Kp" 
LOCATE 5,6:PRINT"Sp=";Y;"cm2 M :L0CATE20,6:PRINT"SR=";Y*Z;"cm2" 
PRINT: PRINT"H ALLA P (potencia en) en Kp" 
mpUB 1940 fj- ^ 

PRINT: INPUT "QUE VALOR HAS OBTENIDO"; T : PR I NT : PRINT ¿W 
IF T=X THEN PRINT"MUY BIEN"ELSE PRINT"MAL EL VALOR DE P ES"; X;"l 





INPUT 31 





1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
19 



1980 
1990 

2000 
2010 
2020 
2030 
2040 



PRINT"P=";X;"Kp\V 
>6:PRINT"Sp= ? cm2":CTJt : ATE20, 
PRINT: PRINV'HALLA Sp (superficie potencia) EN cm2" 
GOSUB 1940 

PRINT: INPUT "QUE VALOR HAS OBTEN I DO"; T: PRINT: PRINT 

IF T=Y THEN PRINT"MUY BIEN"ELSE PRINT" MAL EL VALOR DE Sp ES"; Y;"cm2" 
RETURN 

LOCATE 5,4:WUN£'P=";X;"Kp":LOCATE20 / 4:PRINT"R= ? Kp" 
L0CATE¿¿^^feM'^ , ^.Y;"cm2":L0CATE20,6: PRINT"Sr="; YfZ¿*fcm2" 
PRINT: PRINT"HALLA R( resi stenci a) EN Kp" Í% va IH^Vt l " , i£'' , >i 
GOSUB WgV^^""* i frF7|ffi i '^S^ '■ ' fí ^ W' 

PRINT: InWt' '"'QUE VaTOR' HAS OBTENIDO";T: PRINT: PRV^^SSSSSl^^lV 
IF T=X*Z THEN PRINT"MUY BIEN"ELSE PRINT"MAL EL VALTSr'' DÉ R ES";X*Z;"Kp" 
RETURN 

LOCATE 5,4:PRINT"P=";X;"Kp":LOCATE20,4:PRINT"R=";X*Z;"Kp" 
L0CATE5,6:PRINT"Sp=";Y;"cm2":L0CATE20,6:PRINT"Sr= ? cm2" 
PRINT: PRINT"H ALLA Sr (superficie déla resistencia) EN cm2" 
GOSUB 1940 

PRINT: INPUT "QUE VALOR HAS 0BTENID0";T: PRINT: PRINT 

IF T=Y*Z THEN PRINT"MUY BIEN"ELSE PRINT"MAL EL VALOR DE Sr ES"; Y*Z; "cm2" 
RETURN 

SUBRUTINA DE CALCULADORA f7" ,/Tk 

UT"(TE AYUDO CON l(%i.^gAbljfcCTfl^^: ¿ A $ : I F A$="N"OR A$=tí 
;"AND A$<>"s"THEN ftBfBS ntfrl'fj í.T "PULSA S o N":GOTO 1950.'' 
INT"CUANDO TERMINES PULSA F8 PARA SEGUIR" ^ 
FOR 1=0 TO1000:NEXT 

PRINT:PRINT "MI CALCULADORA FUNCIONA ASI :": PRINT: PRINT"PRINT 4*5 return 20 
(+,-,*,/) ":PRINT"WWWWW" 

END 

RETURN 
CLS 

L0CATE5,10:PRINT"FINAL DEL TEMA : PRENSA DE PASCAL" 
END 






32 INPUT 



PATRULLA 2-4 
, SOBREVOLANDO AREA *cl ) 
SIN NOVEDAD 



83 



COMO TODAS LAS NOCHES DENTRO DE UNOS ^ 
MINUTOS SE CERRARAN LAS CALLES AL TRANSITO." 
CON ESTA Y OTRAS MEDIDAS POLICIALES, LA JUNTA 
DE GOBIERNO PRETENDE ACABAR CON EL PELIGRO 1 
DE UNA INSURRECCION QUE PARECE INMINENTE. 

TAN SOLO EL CENTRAL TOWN, EL BARRIO MAS ANTIGUO 
DE LA CIUDAD HA ESCAPADO DURANTE AÑOS AL CONTROL 
POLICIAL PERO AHORA ESTA SIENDO DEMOLIDO- 







/CON ESTA COPIA >T 
/ DE LOS PLANOS, LAS \ 

HORDAS PODRAN ORGA- 
NO N IZAR MUCHO MEJOR / 
V SUS DEFENSAS / 












I 

Ta'* /ti 

\¿\ 



...ALLI SOBREVIVEN, 
A DURAS PENAS, 
LOS RESTOS DE LAS 
GRANDES HORDAS, 
CUYO PODER HABIA 
LLEGADO A SER 
TEMIBLE EN OTROS 
TIEMPOS Y QUE 
AHORA AGUARDAN 
HORA FINAL. 



/^ESPEREMOS QUE QUIERANOS 
^COLABORAR CON NOSOTROS/ 



EN SU CASA.FRANK MEYER, QUE TRABAJA EN LAS 
OBRAS DE DEMOLICION, ESTUDIA AFANOSAMENTE 
ANTIGUOS PLANOS DE LA ZONA 



ÍAUI ESTA! 
SABIA QUE TENIA 
QUE HABER UN 
ACCESO DESDE 
LAS VIEJAS 
GALERIAS 



DO o. 



Vi 



INSTANTES DESPUES 
ESTA EN LA CALLE 



INPUT 37 



¿QUE TAL FRAMKP^s^iMUV BIEN, BILL! 
ESTOS AMIGOS DESEAN \ PERO VAMONOS YA. 
HACER UNAS APUESTAS.; ) NO CONVIENE DES- 
PERTAR SOSPECHAS 




POCO MAS TARDE, 
CUANDO LAS LU- 
CES DE LA CIU- 
DAD MAN SIDO 
APAGADAS, CUA- 
TRO SOMBRAS 
AVANZAN ENTRE- 
LOS ESCOMBROS 
DEL AREA 
PROHIBIDA. 




i SE ACABO LA EXCURSION. 
VENID CONMIGO/ 




: \ 




%,. & 







REALMENTE, NO TIENEN MUCHAS ALTERNATIVAS. 
LAS MAQUINAS ESTARAN AHI EN UNOS DIAS 
Y ELLOS ESTAN PRACTICAMENTE AGOTADOS. 



í 2 , 5 #ü# 




INPUT 





7 * T*r**- 





/^[COMANDANTE TAÑIA! 
/ i LOS SENSORES DETECTAN 
l MOVIMIENTO MOTORIZADO 
\SOBRE NOSOTROS/ 





¡ALERTA, NOS 
HAN DESCUBIERTO! 
BLOQUEAD LAS ENTRADAS 
SECRETAS... SITUACION 
vDE DEFENSA PASIVA S 




MIENTRAS, FUERA 
SE DESARROLLA 
EL ESPECTACULO 
CLANDESTINO FA- 
VORITO DELOS 
APOSTADORES. 
LOS COMBATES 
DE AUTOMATAS 




EL PUBLICO DISFRUTA DEL ESPECTACULO AJENO A 
LO QUE ESTA OCURRIENDO A SU ALREDEDOR 







entonces.. \ f POLICIA FEDERAL. QUE NO 
SE MUEVA NADIE. SI NO SE 
RESISTEN... i CUIDADO/ 
ESTAN ARMADOS/ 
i DISPARAD/ 






40 INPUT 





< 4¿^anderas de la CEE pretende que te diviertas estableciendo 
competiciones con tus amigos a ver quien tiene más capacidad de retención. El 
funcionamiento del programa es bien sencillo. Se trata de elegir un par de 
casillas, de un tablero de 30 , de forma que coincidan las iniciales de ambas. Si 
no coinciden, int afl tfr yftfrffi^frparlas para un tuyjq», „^?&S&i&4 or • Cada vez que 



t'ida 



aciertes podrás ver fi-fijp^J 
cuantos puntos. Haí^fe^^ 

Al término de 1 
punt 





pais corre 
tanto esp 
de MSX e 
á la cías 
or cada un 




ás obtendrás unos 
cionan puntuación 

ugadores y la 



Carmen Mejias Jiménez 



10 CLEARrKEY OFFrSCREEN 0:CLS 
20 NU^^12345 ,, :L$= M ABCDEF ,, :BA$= M B D 
30 Din C$(3Q),P$(30) ,PL$(30) /2v> 
40 COLOR 15,4,4 

^/Rjfrl:TERÍh TAB(10) "JUEGO DE W^AK6R.lflS^ 
Tonsiste en tratar de hacer 
Jcada pais al dar 
.as Letras y el nom 
.sar <ESC> se dibujar 
Hay dos signos especiales<%25£ y <**> 
amenté se dibujara una bandera especial y 
puntos. 

80 PRINT: PRINT" No vale apmW las coordenadas usad 

NTrPRINT TABC25) " ¡/^^^^j 
90 LOCATE ^ ^ZzPRI^fiS^^^^^^ DE ESPACI 




R IIRDK PNL LCE**%%" 



IT TABC1 0) "===== 
intentando co 




son iguales, sonar 

pondiente bandera.' 
si lográis emparejarlos correct 
aumentara vuestra puntuación 3 



vuestra memoria M :PRI 



100 IF INKEYSO" 
110 CLS:PRINT:PRINTJ 



,B(10)"JUEi 






S JUGAD0RES< 1 a 



LAS BANDE 

■jjJ^h ¿Zm?) 
120 LOCATE 27,10:PR<Í¡^W 

5 > M ;J$:IF VAL( J$$MWjMW$)>5 THEN 120 
130 F0R X=1 T0 J 

140 LOCATE 1,X+12:PRINT SPC(LEN(N$(X) )+38) .-LOCATE 1 ,X+12:PRINT"N0MBRE JUG. M ;X; M < 

10 letras> M ;:INPUT N$(X):IF LEN(N$(X) )>10 THEN 140 
150 0OO=X 

670 
COORDENADAS 

v^"?. m ^<lp%=i to 30 v^sy -■- vjr"H v^ 7 

IF X*16 THEN RESTORE ¿^^t&**íw Gfffí^^%^ 

C4í>") = ^í¡K^+64) : READ P$( X) ,P¿fe 







INPUT 41 






V V v 

220 REM SORTEO 

230 FOR X=1 T0 5:READ CX(X):F0R Y=1 T0 6: READ CY(Y) 
240 B=INT(RND(-TIME)*LEN(V$))+1 
250 CO$(X,Y)=MID$(V$,B,1) :ST(X,Y)=0 J-ia. 
260 IF B=1 THEN V$=RIGHT$( V$,LEN( V$)-1 ) : GOTO 290 
Í^ÍCéiBElKVS) THEN V$=LEFT$( V$,LEN( V$)-1 ) :G©T0 290 

?ég'v^E^i!f|^$ / B-i )+right$( vs^ühScvs)^-"^ 
2f0mm">i4jmi x fWí* 

|90'"1^U,#BÍ} JjEX '"' 

KÍÍ*'fcR6MÍ^ DEL JUGADOR WCv 

f¡§Wp&¡h^ 0>-(140,20) ,1 ,BF : PSET<gfAflrajSOLOR 1 5 : PRINT#1 ,N$( H) : R 
Zs€ REM CUADRO JUGDOR. Y PUNTOS 
340 PU=P(H) 

350 LINE(165,H*12+15)-(245,H*12+25),1,BF:PSET(166,H*12+16),1: COLOR 15:PRINT#1 ,H; 

"— > "; :PRINT#1 ^USING'^'^PUrRETURN 
360 REM NUMERO 
370 LINE(222 / 100)-Caiffd.'1- 
380 N1$=INKEY$:IF N1$="" T-KEH 
390 IF INSTR(NU$,N1$)<>0 THEN C1=INSTR(NU$,N1 

/ N1$:RETURN ELSE^É^P"-----'' J^<¡¡¿?} 
400 FOR W=1 TO 40:N^^tóÜ^é^^ 00) - (240 ^ 11 

410 REM LETRA V 
420 LINE(222,112)-(240,122),1,BF 
430 N1$=INKEY$:IF N1$="" THEN 450 

440 I£„.IflSTR(L$,N1$)<>0 THEN C2=INSTR(LJUft$) : PSET(230,113) ,1 : COLOR 15: 

ELSE BEEP Í^AíJ 
40:NEXT W:LINE(22^f^-*f?Wiyí5p / 1 5,BF: FOR W=1 TO/^tJít'W 

•"■ 

CUADRO 
1,C2)=1 THEN BEEP 1 
),CY(C2))-(CX(C1)+' 





: COLOR 15:PRINT#1 
TO 40:NEXT WrGOTO 






42 INPUT 





I31),1:C0L0R 15:PR 
' |IF N1$= M " THEN 5 
¡RETURN ELSE BEEP 
'50:NEXT W:LINE(C 
W:GOTO 480 

!ADO 

>22,100)-(240,110),1,BF 
,140),1,BF:RETURN 
540 REM BORRADO PAIS 

550 LINE( 160,1 62) -(250,1 72) ,1 5,BF:LINE(160,175)-(250,185) ,1 5, BF: RETURN 
560 REM CUADRO JUAGDOR PU 
570 PU=P(H) 



THEN Z=0: RETURN 
C1)+18,CY(C2)+12) 

(240,122),1,BF:LINE(1 





,15,BF:PSE 
TURN 



: COLOR 1:PRINT#1 ,H 



CY(T4))-(CX(T3)+1 



580 LINE(165,H*12+2 
;"— > ";:PRINTÍ 
590 REM BORRADO POÍ^', •A&ffcjÑÜj 
600 LINE( CX(T1 ) / CYjfflfe l ^^l¿W , >CY(T2)+12) 

610 REM DIBUJO TABLE©¿I NMm* ¿U, 
620 LINE(20,50)-(140,f7W>^IBf:LINE(20,50)-(140,flW^ 
630 FOR X= 44 TO 116 STEP 24:LINE(X,50)-(X,170) ,1 5.-NEXT X.-FOR X=70 TO 150 STEP20 

:LINE(20,X)-(140,X),15:NEXT X 
640 FOR X=1 TO 5: FOR Y= 1 TO 6 

650 ( >t J |4T(X,Y)=1 THEN PSET(CX(X) ,CY(Y)) ^ríOLOR 1 5 : PRINT01 ,PL$(ASC( C,Q|Cí<^M , ^4) 
:PSETCCX(X)+1,CY(Y)),1:C0L0R \g^£/¡m)lSLS^SC(.C0$(.X,y'))-6U) (i^X^S^ff^ 
660 NEXT Y: NEXT X: RETURN /A^^^Jr® C*S9a "" ^''J 





r70 "R£lñ É 
80 SCREEI 




,A EL JUEGO 
: COLOR 15,3,1 5 :0P6|W 
ACION PANTALLA 
)-(155,185),1,BF 



•AS#1 



-!t , "fr Á±> #1-, 



O TO 4:PSET(X*24+24,41),1:C9L0ft f 5 : PRINT#1 ,X+1 : NEXT X 
730 FOR X=0 TO 5 :PSET(12,X*20+60) ,1 : COLOR 15:PRINT#1 ,CHR$(65+X) :NEXT X 




INPUT 43 





)-(140,20),1,BF:L 
JUGA. PUN.":FOR 



•1. mt 




90),15,BF:PSET(17 
" X*1 2+1 5) ,15: COLO 



E (222,100)-<240 
22,112)-(240,122) 



>SfT(,lMfJjOO) / 4: COLOR 1:PRI 
WéfÍÍ1t&,U: COLOR 1:PRINT#1 

\yEÍ0,140),1,BF 
LWEn60,162)-(250/l72>,15 / BF:LlNE(f60,175)-(250,185),15,BF 
PSET<24,11),1 :COLOR 15:PRINT#1 ,"UN MOMENTO" :G0SUB 170 
FOR H= 1 TO J 

330:GOSUB 540 
360 vGJHWP^JO: GOSUB 460 




840 
850 
860 



GOSUB 310:GOSUB 
GOSUB 520:GOSUB 
IF Z=1 THEN 800 
T1=C1:T2=C2 
A$=PL$(ASC(C0$ 
)=1:PSET(160,1 
: COLOR 1 : PRINT 
GOSUB 520:G0SUI 
IF Z=1 THEN 840 
T3=C1:T4=C2 




CX(T1),CY 
INT#1,P$(A 
2)) -64) 
GOSUB 460 




INT#1,A$:ST(T1 
:PSET<161,164> 



870 B$=PL$( ASC( C0$(T3,T4) )-64) : PSET( CX(T3) ,CY(T4) ) ,1 : COLORI 5 : PRINT#1 ,8$: ST(T3 
>=1:PSET<160,176), 15: COLOR 1 : PRINT01 ,P$< ASC(C0$CT3,T4> )-64) :PSET(161 ,176) 
.-COLOR 1 :PRINT#1,P$(ASC(C0$(T3,T4))-64) 
THEN GOSUB 1130:G0SUB 61 



,T2 
,15 



,T4 
,15 





960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 
1050 
1060 
1070 
1 



THEN Z=3:P(H)=P(H)+ 
LSE GOTO 910 

:ST(T3,T4)=0:F0R 
F F=15 THEN 930 E 
780 

CLASIFICACION 

J 

J-1 

IF P(Y)>P(Y+1) THEN 980 
SWAP 0(Y),0(Y+1):SWAP P(Y),P(Y+1) 
NEXT Y 
NEXT X 

LINE(20,10)-(1|íagW'-^^í# , !?|[(32 / 11 ) ,1 : 

FOR X=5 TO 1 
READ LO$:IF X 

H=0(X) :PU=P(X>*e&«B %D^OT»/540:PSET(1 
TC161 ,176) ,15:í?««»íjhte7^tfÍ¡afW 
LINE(160 / 130)-(2*4í/WXK: psET( 168,131 
IF INKEY$0CHR$(SH1B) THEN 1050 
GOSUB 580 
NEXT X 

PARTIDA 
PSET(161,163),15: 
T#V < S - N >" 

0>-( 240,1 40) ,1,0 
1) 



OR A$="**" THE 



GOSUB 590 






CLASIFICACION' 



:PRINT#1,L0$: 
RINT#1,"<ESC>" 



PSE 




OR 
O 



A$="s" THEN RU 




OTRO JUEG0":PSET(1 



A$="n" THEN 




44 INPUT 






50)-(240,1 40) ,1 ,8*¿^W,$©>T$#TV COLOR 1 5 : PRINT# 
l:SOUND 8,5:FOR W^^oft^^'BWKSOUND 0,W:NEXT W 
50)- (240,1 40) ,1 5 ,BffaÍT1^dWy'\ 5 : COLOR 1 : PRINT0 
l:SOUND 8,5:F0R wü^^aj¿^flf3r:S0UND 0,W:NEXT W 
?Y$<>CHR$(&H1B) THEN 11' 
:SOUND 8,0:S0UND 0,0 

1200 LINE(20,50)-(140,170),15,BF:LINE(34,75)-(38,155),1,B:0N INSTR(BA$,A$)/2 GOT 
O 1250,1230,1210,1290,1440,1410,1350,1330,1270,1390,1310,1370,1520,1560,159 
O 

1210 REM ESPAÑA 

1220 LINE(40,80)-(ia¡p¡M$ffl 

1230 rem'alemania \¡Sf V- Q"Ev\=l" vi»% 

1240 LINE(40,80)-(¡|pj$^ 

1260 LINE( 40,80) -(óójjj^ 
1270 REM DINAMARCA 

1280 LINE(40,80)-(66,106),6,BF:LINE(40,113)-(66,140),6,BF:LINE(72,80)-(120,106), 

6,BF:LINE(72,113)-(120,140),6,BF:G0T0 1630 
1290^11 FRANCIA 

f 80) - (66 ,1 40) ,4 ,BF : Llh^jf^f ^^fcai^O) ,1 5 ,BF : LINE( 94 , 
1630 
>A 

- ( 1 20 ,99) ,8 ,B F : L^D¡^táD%(5ají^20) ,15,BF:LINE(¿ 
)T0 1630 
JDA 

),80)-(66,140),12,BF:LII<g(í7 J '\^H^Í3,140),15,BF:LINE(94 / 
, .'GOTO 1630 
1350 REM ITALIA 

1360 LINE(40,80)-(66,140),12,BF:LINE(67,80)-(93,140),15,BF:LINE(94,80)-(120,140) 

,8,BF:G0T0 1630 
1370 REM LUXEMBURGO 

1380 LINE(40,80)-(1^^:¿8^^'|*(40,100)-(12^?^^ 

0),5,BF:G0T0 
1390 REM PORTUGAL 

1400 LINE(40,80)-(65J^);42-,"BF¿ítÍílJ(66,80)-(12 1 e 
1410 REM GRECIA 

1420 LINE(40,80)-(52,^m^ljptí^E(40,98)-(52,1iq^jfcF^ 

:LINE(58,98)-(7l7nW>¿,W:LINE(72,80)-(120j^^^BWLINE(72,92)-(120,97),5 
,BF:LINE(72,104)-(120,110),5,BF 
1430 LINE(40,118)-(120,125),5,BF:LINE(40,133)-(120,140),5,BF:GOTO 1630 
1440 8£M_REIN0 UNIDO 

J0)-(120,140),15,BF 

' )) ,1 5 : DRAW"C8F24R4J^4jtóEl»^|2faPD4G21 R22D1 3L21 F20t 
;t ,.to"3L6^|^3E20L20Ul3R22H22<S^T:FÁ^ ,8 
ffifr&Kfi&bp ,15:DRAW' , C4F16U1^í;;. , j^«Í^^|¡Í^ ,4:PSET(91 ,80) ,^^Afr!&[*7;| 
:'''"-714-r , Í^iWT(92,82) ,4 

ÍO) ,1 5 : DRAW"C4U1 7G^^7^1e£ftíí(t]^yi 39) ,4 : PSET(91 ,1 4( 









INPUT 45 





),4:PSET(121,102 

,125),4:PSET(40, 

>*-(68,119),15,BF:LINE 
■ S,BF:GOTO 1630 




PAINT(92,139),4 
),15:DRAW"C4F12L1 
INT(119,101),4 
21),15:DRAW"C4D12J 
:PAINT(41 ,121),4 
,101)-(68,103),15,BF: 
,T5,BF:LINE(88,119)-(103,1; 
1520 REM CONSEJO EUROPA 
1530 LINE(40,80)-(120,140),4,BF 

1540 COLOR 11 :PSET(80 / 82),4:PRINT#1/'*":PSET(80,132) X 4:PRINT#1/ , *":PSET(105 / 106) 
^4:PRINT#1/ , *":PSET(5S^6) / 4:PRINT#1/ , *":PSET(6^8J),4:PRINT#1/'* *":PSET 
(68 ,1 25) ,4 : PR II ^^^>J^T( 59,96 ) ,4 : Py^/jy3K^X :PSET(59 ' 116) ' 4:PRI 

1550 GOTo'l630 
1560 REM INPUT MS) 
1570 LINE(40,80)-< 

1580 COLOR 4:PSET(Wfl9fl9L**lM||fflf#1 / ' , I N P U y^PSfcjffli^Jft^l 1 : PRINT#1 /' M S 
X":PSET(46,100Í^/Ípfefet^,"I NPU T": PSlrf^VM^ :PRINT#1 ," M S X": 
GOTO 1630 
1590 REM MSX 

1600 LINE(40,80)-(120,140),4,BF 
1610 COLOR 9:PSET(74,85),4:PRINT#1,"M":PSET(58,105),4:PRINT#1,"M S X":PSET(74,12 
¿PRINT#1,"X" x jí^g-i 



t 7^¡f$fy S H 85) /^:PRINT#1 /'M'-iPSIÍ^^íl^aMINT^/'M í 
NT#1,"X":G0T0 1630 



^,63^^É^559)-(121,141) / 1 / B jT-^f 
' ;6^^Tfe i ««|»Í130)-(240,1 40) ,1 ,Bf :PSET (Ito^gHfl : COLOR 1 5 : PRINT#i>fc¿S£^ V 




1< 



1650-^f 



K> CHR$(&H1B) THEN, 



ELSE RETURN 



' BELGICA"," B"," ALEMAN^'^'^y^JríSPAXA"," E"," FRANCIA' 




« ••••• • m mm 





1680 DATA " GRECIA", "GR"," ITALIA"," I"," IRLANDA", "IR"," DINAMARCA", "DK"," PORT 
UGAL"," P" 

1690 DATA " HOLANDA", "NL"-A,Ui|;EMBURGO"," L","CSJO.EURQi;Al',"CE"," INPUT MSX","**' 

," M S X","%%' 
1700 DATA 24,55,75 <flfcí$^3^£¿8, 55, 75, 95.^ 

5 ,96 ,55 ,75 ,95 35 f t55 ,1 20,^5 ,75 ,95 ,1 fí^f / 

1710 DATA QUINTO, Cl^^uT^*OJ»foNDO,PRIMEP^I,.*. 





• •••••• •••••• 

••••••• •••••• 

••••••• ••••••• 

• •• ••• 

••••••• ••••••• 

••••••• ••••••• 

• •••••• •••••• 

••• ••• ••• 

• •• ••• ••• • 

• •• ••• ••• 




•••••••••• 

••• 
••• 
••• 
• •• 
••• 



•••••• 

••••••• 

••••••• 

••• ••• 

• •• •••••• 

••• ••••••• 

••• •••••• 

••• ••• 

• •• ••••••• 

••• ••••••• 

• •• •••••• 




programa es una simulación de las conocidas máquinas tragaperras 
en las que, tr as .^Bfjqffer una moneda, aparece una corabinaciAríft?^ tres frutas que 



El primer paso, 
te preocupes si 




monedas. No 
monedas con 

ciones ganadoras 

1 a'™ a quina no tienes 



Jíl t puede tener premio. 

><¡P¡Jecutes el programa (RUN), es i 
suelto, basta con que teclees 
is que quieres empezar a jugar. 
Hecho esto, verásT^lKi|fcer la tabla de premios, con las 

y layCMjtidad correspondiente a cada una de 
Ahora ya puedes emjcitóar a jugar. Cuando se haya dibujado _ 

más que pulsar las 'teclas de comienzo (aparecen en la pantalla) para que las 
frutas empiecen a girar. Con las teclas 4,5 y 6 puedes parar cada uno de los 
rodillos. Obtendrás una combinación de frutas que, con un poco de suerte, puede 

tóJ^^rograma se enea 

'••fijas y restando las monedas qué¡^6^iiAi¿? la máqui 
lúe puedes ganar, pero si en el que puedes perd 
:a dispuesta a prestarte dinero, en cuanto 

terminado^p(!S™ego. 




irgara de actual MiMC^^41ner o, sumando los premios que 
las monedas queL^^^^ máquina. No hay limite en ^ m 

Jer porque la máquiná^-:^^ 
rea sin blanca dará/a5»3: : "A-li 



te ve 



Jon Navarra 



REM******************** 




JON NAVARR^,, ★ 
7129 



-BILBA0! 



REM* INPUT-MS 
REM************** 





CLSrDEFINT 
MONEDAS DE 



16flwS£REEN0:KEY0FF 
im;WH)T''( CUANTAS 

¿:W:-#wijD(-TiME) 

l 'iOFF: CLS 

Ir 1,15,15 

1090 

SE:0PEN"GRP:"AS 1 

'BM47,5":PRINT#1,"TAl 

240 DRAW"BM5,22C1 R250D170L251 Ulftj} 



A-Z 

25ptas. TIENES";QQ 





ALORES" :DRAW"BM48,1 2": PRINT#1, "=====? 




INPUT 47 




,(30,34), 13,4:PUT SPRITE1 2,(50,34)1 
í¿(30, 56), 1 3,4: PUTSPRITE2, (10,78)''' 
HT8) ,3,2 : PUT SPRITE1 9, (30,1 00) ,1 3 




' 250- PJÚTSPRITE4, (1 0,34) ,1 3,4: PUT 
"'''faf} SPRITE17,(10,56) ,13,4:PU1 
UTE6, (30,78) ,3,2 :PUTSPRITl 
TE20, (50,100) ,13,4 
)l SPRITE1,(10,122),11,1 :PUTfWSí21 / (30 / 122) / 11 / 1 :PUTSPRITE22,(50,l'; 
:PUTSPRITE3, (10,144), 6,3:PUT WMTE7, (30,144) ,6,3: PUT SPRITE11 ,(50,14Í&,3 
:PUT SPRITE22,(10,166),11,1:PUT^fPRITE23,(133,50),6,3:PUTSPRITE30,(50,12#),1 
1,1 

270 PUT SPRITE31,(30,166),11,1:PUT SPRITE15, (153,50) ,6,3:PUTSPRITE24, (133,100) ,3 
,2:PUT SPRITE^^W,1 00), 3,2 :PUTSPRITE25,(1 53,166), 3;2|j^PRITE27, (173,166) 

280 LINE(128,22>^M#&),1,BF:LINE(72,184)-(72,^^^ 

LINE(192,162)-(192,182),1 JGHÉÉ 
290 DRAW"BM78,40":PRINT#1 ,"15": DRAWBM78 ,62 " : PRINT#1 ,"3":DRAW , 'BM78,84" : PRINT#1 ," 
8 M :DRAW n BM78,TOOT^ 

T#1,"5 ,, :DRAW ,, B'tóOT " 
300 DRAW n BM200,172 , '^.|*INT#1,' , 3 , ':DRAW"BM200,106 M :PRINT#1,'%W 
310 DRAW"BM133,130": 1 PRINT#1 , "PULSA <W> PARA * CONTINUAR" 

320 RR$=INKEY$:IFRR$="W"OR RR$="w"THENGOTO 340 
330 GOTO 320 






50 

570 ORAW"BM55 ,1 1 0C8R37D24L37U24" 
380 DRAW"BM95,110C8R37D24L37U24" 
^B)(j|fAW , 'BM135,110C8R37D24L37U24" 
?AW"BM91,152C2R45D24L45U24" 
>AINT(57,115),8:PLAY"T255L6406C" 
r PAINT(97,115),8:PLAY"T255L6406C" 
PAINT(137,115),8:PLAY"T255L6406C" 
PAINT(94,160),2:PLAY"T255L6406C" 
DRAW"BM39,1 8C7R1 50F4D78G4L1 50H4U78E4" 
DRAW"BM39,1 8801^10:^411 58E4" 
PAINT(80,189) f ra&^T2 5 5 L6406 C " 
PAINT(40,40) ,?i^^í|55L6406C" 
DRAW"BM60,40C1.S.R3W>3DL30U30" 
500 DRAW"BM98,40C15R3QD30L30U30" 
510 DRAW"BM136,40C15)MÍ0L30U30" 

520 PAINT(64,42),15:'l?Ít#'"T255L6406C":PAINT(99,42),1 

42),15:PLAY"T255Lyb6C" 
530 DRAWBM56 ,35 C1 R1 1 4T2D36G2L1 1 4H2U36E2 " 
^RAW"BM1 82 ,47C1 4R3D20L3U20" 
i;tf#J,NT(183,50),14:PLAY"T255L6406C" 
(50,80)-(84,90),15,BF 
Í"BM48 ,82 " : PR INT#1 , " "; QfiflGÍEftv 
LE (75 ,1 42) ,4,1 5 : PAINl^i^í;) ,1 5 
?LE ( 1 1 3 ,1 42 ) ,4 ,1 5 : PA IlwfjgjlB ) ,1 5 
!CLE(151 ,142),4,15:PAINT(151,142) ,15 
tRCLEd 1 3,182) ,4,1 5 : PA I NTC1 1 3 > 182 ) ,15 
yRAW"BM182,47C1R3D20L3U20"\7Í : TO!f l 
630 T DRAW"BM59,118 M :PRINT#1,"ST0F>j,Í : i|lAY"T255L6405C" 

f 






T255L6406C":PAINT(138, 



600 

620 




48 INPUT 




4» 



TABLA I>E VALORES 



15 

3 

8 

5 

6 

5 

1 





640 DRAW M BM99,118":^|5T#1, ,, STOP ,, :PLAY ,, T255L6406C ,, 
650 DRAW"Bm39,118":^INT#1/'ST0P":PLAY"T255L6406C" 
660 DRAW"BM96,160":PRINTrtrt,"START":PLAY"T255L6406C" 
670 IF QQ=<0 THENG0T0 2180 

68Q mi DRAW"BM27,5":PRINT#1 , "PULSA <S> PARA, ■•<#«?£ ZAR" 
•4^4$=''S M 0R X$="s"THEN GOSUB 1880$5^;>ft 

^WfflKpÍNKE Y$ : PLA Y"T25 5 L6402 A 
7WW6H*3 THEN GOTO 1030 
75^ :; |rS$="5"THENG0T0 1620 
760 't*FS$= "6 "THENGOTO 1530 
770 IFS$="4"THENG0T0 1790 
780 IFE=0THENG0SUB1710 
790 IFU=0THENG0SUB1370 
800 IFY=0THENG0SUBl4rp,T»-„ 
810 IFE^THENGOSUBlzáSo-ií 
820 IFU=OTHENGOSUB$Ító 
830 IFY=0THENG0SUB1 
840 IFE=0THENG0SUB1 
850 IFU=0THENG0SUB1 
860 IFY=OTHENGOSUB143j9v 
870 IFE=0THENG0SUB174G;: : ' : ; 
880 IFU=0THENG0SUB1400 
890 IFY=OTHENGOSUB1440 
90Qi7jf ,E=0THENG0SUB1 750 
9 1 0' ;lpü¿0 THENG0SUB1 450 
^•^Wln'HENGOSUBl 460 
_MÉTHENGOSUB1760 
¡jftllfrTHENGOSUBl 470 
9^KJlffiv0THENG0SUBl 480 
96Ó,/ÍBp:0THENG0SUBl 770 
970 VfiWU=OTHENGOSUBl 490 
980 3ÍFY=OTHENGOSUB1500 
990 IFE=0THENG0SUB1780 




';QQ 








INPUT 49 




1C3G 



DRAW"BM48,82":PRINTn,"";QQ 
UGAR PULSA <K>":DRAW"BM200,120 



DEJAR 



<T>" 



/¿"5P^Í:Í¡!?.U=0THENG0SUB1 480 
'ty^THENGOSUB^O 
h"0 730 

p WSUB1 950 :LINE( 50,80) -(84, 901,1 5'.,BF:D 
l^|JpRAW"BMl2 / 5 , ':PRINT#1/'PARA \IO\$W$ J 

W PULSA '•ife 1 

1050 JK$=INKEY$ 

1060 IF JK$="K"0RJK|^:'k"THENG0T01900 
1070 IF JK$= ,, T ,, ORJ^^Í'KTHENGOTO 2200 
1080 GOTO 1050 ¿S$^wb 
1090 SCREEN2 / 2:FW ; BP^:ÍT032 
1100 READA 
1110 B$=B$+CHR$( 
1120 NEXTPO 
1130 SPRITE$(1)=B$ Ü¡ 

1140 DATA0,0,1 ,3, 6 ,7$?! 3, 15, 15, 15, 15, 7 ,6, 3,1 ,0 

1150 DATA0,0,1 28, 192*224,160,224,240,240,240,240,224,224, 192,128,0 
1160 F0RA=1T032 
117$., READC 
t580C;:fi^=D$+CHR$(C) 



.•v . ' X ■ „ 







TA 

ITE$(2)=D$ 



Sr' 
6 




A0,0,0,7,1 4,29,61 ,61 ,63,63,63,31,15,7,0,0,32,64,128,160,240,248, 
,252,252,248,240,224,0,0 
RA=1T032 
EADE 
F$=F$+CHR$(E) 
NEXTA 

SPRITE$(3)=F$ 
1270 DATA0,0,0,1 ,2,4,8,8,8,28,62,127,127,127,62,28 
1280 DATA32,64,128,0,.J,¿B,64 ,32,16, 56,1 24,126,1 26,126,124,56,0 
FORA=1 T032 ¿S§5ñA 

readg ¿sa^ím ^íftft. 




1290 
1300 
1310 
1320 
1330 



H$=H$+CHR$(G) 
NEXTA 

SPRITE$(4)=H$" 
1340 DATA0,7,3,1,7,t 
1350 DATA0,240,224,64£ ; ; 
1360 GOTO 220 




8,58,56,62,58,24,14,7,0 
,184, 12,174,190,14,174,174;! 



1370 PUT SPRITE2, (104,48) ,3 ,2 : F0RA=1 T020:NEXTA: RETURN 
13§%. : PjJT SPRITE2,(0,193),3,2:RETURN 

' [SPRITE1, (104,48), 11,1 : FORA=1T020:NEXTA:RETURN 




,248,0 




:#>%PRITE1 , (0,1 93) ,1 1 ,1 : REIUW 
SPRITE3, (144,48) ,6,3:£0#&f 
SPRITE3,(0,193),6,3; 
SPRITE2, (144,48) ,3,2: 
TSPRITE2,(0,193),3,2:R 




:NEXTA:RETURN 
NEXTArRETURN 



1 

145©#UT SPRITE3,(104,48),6,3^ÍL 
1 46(3? PUT SPRITE4, (1 44,48) ,1 3,4 :W 
1470 PUT SPRITE3, (0,193) ,6,3:REf<¡ff 




S[Jt>20: NEXTA: RETURN 
T025 :NEXTA:RETURN 




SO INPUT 



.-TVE 




íirtj--'.'-'."^'. 




i'NEXTA: RETURN 
NEXTA: RETURN 



:PAINT(151,142),8:Y=1 :N=INT(RND(1 )*4)-» i t 



■i : ir 1*1 i rtcmq«u ou V AWUT 

!ND(-TIME)íp|í\=lT020:NEXTA:CIRCLE(1 13,142), 4,8: P/ttKpl 13,142) ,8 :U=1 : F=I 
iND(1)*4) + l'f W 



^jftj SPRITE4, (0,193), 13,4:RE 
" ¡ÍTSPRITE4, (104,48), 13,4: F0 
JTSPRITE1, (144,48), 1 1, 1 :F0 
WÚTTSPRITE4, (0,193), 13,4: RETlflffl 
WUTSPRITE1,(0,193),11,1 :RETURíl¡ 
f W=W+1 : 1 FW>1 THEN60T0 730 
OP=RND(-TIME) :CIRCLE(151,142),4 
PLAY"T255L6406C" 
1560 IFN=1 THEN PUTSPRITE5, (1 44,48) ,1 1 ,1 : A3=1 
1570 IF N=2THEN Pljf ,;^SJ»MTE6,(144,48) ,3,2 : A3=2 
1580 IF N=3 THEN/:^í:;|pWTE 7,(144,48) ,6,3:A3=3 
1590 IF N=4THEN ^¡¿íjjÍTE 8,(144,48) ,13,4:A3=4 
1600 GH=GH+1 
1610 GOTO 730 
1620 1=1+1 :IFI>1 Trtei 
1630 TU=RND 
NTÍRND 
1640 PLAY"T255L6406C 

1650 IFF=1THENPUTSPRITE9, (104,48), 11, 1 :A2=1 
16$$., IFF=2THENPUTSPRITE10, (104,48), 3 ,2:A2=? 
HS.?U^FF=3THENPUTSPRITE11 ,(104,48) ,6,1&¡&$;\ 

JgjggF=4THENPUTSPRITEl 2 ,(1 04,48) ,1 ^««¡«¡1 

1710 PUTSPRITE1, (68,48) , 1 1, 1 :F0RA=1T02Q:NEXTA: RETURN 
TTfTOÜTSPRITEl ,(0,193) ,1 1 ,1 : F0RA=1 T020tJwSi»: RETURN 
l7.^á¡fpUTSPRITE4, (68,48) ,13,4: F0RA=1T020:>Íe|íA: RETURN 
174*' PUTSPRITE4,(0,193) ,13,4: F0RA=1T020: NB^ÍTA: RETURN 
1750 PUTSPRITE2, (68,48), 3,2 : F0RA=1 T020 :NEXTA: RETURN 
1760 PUTSPRITE2,(0,193),3,2:F0RA=1T020:NEXTA:RETURN 
1770 PUTSPRITE3, (68,48) ,6,3: F0RA=1T020:NEXTA:RETURN 
1780 PUTSPRITE3,(0,193^,,6,3:F0RA=1T020:NEXTA: RETURN 
1790 G=G+1:IF G>lTlj$#4%730 
1800 LK=RND(-TIMEÍÉ ""' 

(RND(1)*4)+1 
1810 PLAY"T255L64 

1820 IFQ=1THENPUT9IJWKÍiM|^ (68,48) ,11 ,1 : A1=1 
1830 IFQ=2THENPUTSPMWR, (68,48) ,3,2:A1=2 
1 840 IFQ=3THENPUTSPR^M 5 , (68 ,48) ,6 ,3 : A1 =3 
1850 IFQ=4THENPUTSPRITC16, (68,48), 13,4:A1=4 
1860 GH=GH+1 
1.$¡WMpT0 730 

':0:^E(26,4)-(23O,16),4,BF:CIRCLE(113,182),4,12:PAINT(113,182),12 
"ÚffaO 720 

E ( 1 89 ,1 1 9 ) - ( 2 56 ,1 70) : 1=0 : G=0 : GH=0 : E=0 : U=0 : Y= 

IHKfflT SPRITE 5,{0A9Z)^^gjg¡¡StíRITE6,í0A9l),Z,2:PUJSPRlJE7,(.Q^9l 

V : v'# SPRITE8,(0,193),13,4:PUT SPRITE9,(0,193) ,1 1 ,1 :PUT SPRITE1 0,(0,1 
19WPUTSPRITE1 1,(0,193), 6,3 :PUTSPRITE12, (0,1 93), 13,4: PUT SPRITE13,(0,19Í 
f PUT SPRITEl4,(0,193),3,2:^f!:5íPRiTE15,(0,193),6,3:PUT SPRITE16,(0,193 
1930 GOTO 580 y\ 





™^040:NEXTA: CIRCLE(75 ,1 42) ^fiEgMINTCtS A 42) ,8 :E=1 : 



=1 :Q=INT 





*0:LINE<11,4)-*flS5j¡* 




INPUT 51 




2090 
2100 
2110 
2120 



ft¡1 =0 : A2=0 : A3=0 
' AY"T255L6404DCGBFAEBCC" ^VOT 
A1 =^ANDA2=4ANDA3=4THENG0™Ab» 
A1=4ANDA2=4ANDA3<>4THENGOT»02090 
JfFA1=2ANDA2=2ANDA3=2THENG0T02^||Xi 
jflFAl <>4ANDA2=4ANDA3=4THENG0T0¿!T,'XÍ 
' IFA1=1ANDA2=1ANDA3=1THENG0T0212¡ '' 
IFA1 =3ANDA2=3ANDA3=3THENGOT021 3 
I F A1 =1 ANDA2=1 ANDA3<>1 THENGOT021 40 
IFA1=3ANDA2=3ANP»2,03THENGOT02150 
IFA1=2ANDA2^¿AI}'P^35Í!í>2THENGOTO2220 
IFA1<>2ANDAtó?M6AÍ42THENGOT02230 
IF QQ=0THENQb|ÍÉ||hiffl 
RETURN jBBMHy 

QQ=QQ+15:DRÁPTO¡jt5'':PRINT#1,"TE TOCO EL GORDO":PLA 
FCC ,, :F0RA=1T0M'gil5EXTA:LINE(26,4)-(223 / 16),4,BF:RETUR , l!( 
QQ=QQ+3:PLAY'7Ím6406CDCEFDCEGDCC M :F0RA=lT0500:NEXTA: v ttETURN 
QQ=QQ+8:PLAY"T255L6406ABCDABBADCADEA":F0RA=1T0500:NEXTI: RETURN 
QQ=QQ+5 : PLAY"T255L6404DEFGFEDACBCFDEACC": FOR A=1 T0400:NEXTA: RETURN 
QQ=QQ+6 : PLAY"T255L6405 CDABDEDCCDEDCABCC": F0RA=1 T0400:NEXTA: RETURN 

PQRA=1 T0400 : NEXTA : RETURN 





L6407DCFGEEDBACDF 




^iT0400 : NEXTA : RETURN 
4FW- 




T0400: NEXTA: RETURN ^-.>^„- 
UR0S , ':PLAY , 7255L6403DFABDEffW!>^i 



LAY"T255L6401 CCCCCCCCCCCCCCC 



.QQ=QQ+5 : PLAY"T255L6404CDCFADEEDF 
?ÍKÍfQQ+1 :PLAY ,, T255L6406CDFEADCFDD'!.( 
">1 :PLAY"T255L6406CDFGABDEDC 
W"BM27,5":PRINT#V'SE TE ACAB 
5L6404EDCABBDEA","T255L6402DEGl 
TO 2170 

AW"BM5,5":PRINT#1,"NO TIENES DINER^tf 
CCCCC" \& 
GOTO 2190 * 

SCREENO: CLS: PRINT"DE JASTE DE JUGAR. TIENES";QQ; "MONEDAS DE 
GOTO 2210 

QQ=QQ+4 : PLAY"T255L64DEFABBCEADDCC": F0RA=1 T0400: NEXTA: RETURN 
QQ=QQ+3:PLAY"T2Sffi|iS5^£DABABABBEDACDAACA":F0RA=lT0400:NEXTA: RETURN 

jSaSáSSfl 



25ptas." 
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X. 



las. 



Se ha abierto ya la convocatoria del 2 o Gran Concurso de Programas MSX. Hay dos categorías 
de participación: Una, para Centros Docentes; otra para particulares y público en general. 




En la categoría de "Centros Docentes" 
se aceptarán todos los programas cuyo tema sea 
pedagógico pero que, por supuesto, no sean la mera 
copia de un libro o de un programa ya existente. 
Lo que se pretende es estimular la creatividad. 
En la segunda categoría, que denominamos 
"General", los programas que participen deberán 
corresponder a uno de los cuatro temas siguientes: 

► Emulación en el ámbito de las Ciencias (Física, 
Química, Biología, Ecología, etc.). Se trata de 
crear un programa que simule un caso real 

o imaginario. 

► Música (creación, interpretación, generador de 
sonidos y ritmos, etc.). 

► Juegos de aventuras. 

►©ráficos y Diseños (se valorará la posibilidad de 
en Plotter). 




Los premios se repartirán también 
según las categorías: 

Cate g oría Centros Docentes. 
- Un único premio de un millón de pesetas a 
repartir entre el Centro Docente y el autor del 
programa. 500.000- Ptas. para cada uno. 



- Un premio de 500.000 - Ptas. para el que quede 
clasificado en primer lugar. 

- Dos premios de 300.000- Ptas. para los que 
queden clasificados en segundo lugar. 

- Tres premios de 100.000- Ptas. para los que 
queden clasificados en tercer lugar. 

Todos los premios serán en matenal SONY. 




- Los programas presentados por los 
Centros Docentes deberán tener un máximo de 
28K.RAM. 

Los programas presentados por particulares para 
la Categoría General deberán tener un máximo 
de 12 K.RAM. 



SONY tendrá la propiedad de los programas 
premiados. 

SONY tendrá los derechos de compra sobre el 
resto de los programas presentados. 
Los programas que concursen deberán ser 
presentados grabados en cinta de audio SONY 
o diskette SONY OM-D3440, entregándose dos 
copias. Asimismo se deberá adjuntar un listado 
del programa, instrucciones de funcionamiento y 
una síntesis del contenido del programa. 
Con cada programa se entregará un sobre 
cerrado conteniendo los datos del autor o autores, 
y en el exterior figurará el título correspondiente. 
Todos los concursantes, independientemente de 
su clasificación final, serán < 




La fecha límite para la recepción de los 
programases el 30 de Eneróle 1.987. Debiendo 
ser entregados a SONY ESPAÑA, S.A., 
Departamento de Ordenadores MSX. Sabino de 
Arana,42-44, 08028 - Barcelona; TEL. (93) 330.65.5 1 . 




Entre todos los programas recibidos, el 
jurado elegirá los que, a su juicio, contengan un 
mayor nivel de innovación y creatividad. 

El fallo será público el 1 de 
Abril de 1 ,987 y publicado 
en la prensa nacional. 
Para mayor información o 
consulta, diríjase a 
cualquiera de 
las Delegaciones SONY. 



Loa Sre*. Juan Boífl Patrón 
de Consterno* (Toonogono) 
Jetó* ÁJÚn Gascón de 
Salamanca, y Enrique 
Rwro Quitei de Valencia 
fueron ganadores de) 
Primer Concurso de 
ProgromaB MSX, Sus 
programa* han sido 
publicado* por SONY y 
actualmente están siendo 
cometCKilijcadoa Con los 

se haxá lo mi*mo. Tú 



ORDENADORES 

HIT3IT 




BARCELONA 

Sabino de Arana, 42-44 
Tel. (93) 330 65 51 
08028 BARCELONA 



DELEGACIONES SONY ESPAÑA, S.A. 
MADRID BILBAO SEVILLA 

Julián Romea, 8 Pintor Lecuona, 1 Niebla 8 

Tel. (91) 253 08 00 Tel. (94) 444 42 00 Tel. (954) 27 47 07 
28003 MADRID 480 1 2 BILBAO 41011 SEVILLA 



VALENCIA 

Salvador Fenandis Luna, 6 
Tel. (96) 325 35 06 
46018 VALENCIA 



LA CORUÑA 

Avda. Ejército, 23 





if 1 * 8. 



Aplicaciones 



MSWIH SITUACION F I Ni 

Hay fondos 
Buena liquidez 
Reservas ai completo 



•ESTAS FORRADO 1 



ORDENA 
TUS GASTOS : 



■ 


LAS OPCIONES DEL MENU 


■ 


INTRODUCIENDO DATOS EN 


LOS REGISTROS 


■ 


COMPROBACION DEL BALANCE 


■ 


ALMACENA TUS FINANZAS 



Igual que otras máquinas comercia- 
les, tu ordenador es capaz de almace- 
nar y calcular información financiera. 
Aquí te presentamos un sencillo pro- 
grama que te permitirá realizar un se- 
guimiento de tus ingresos y gastos. 

El seguimiento de los gastos de la 
familia, averiguar «adonde se va el di- 
nero» es un problema que le resultará 
muy familiar a mucha gente. 

Este programa para cuentas caseras 
está diseñado para proporcionarte las 
respuestas. 

Para actualizar tus cuentas, tienes 
que «alimentarlo.» una vez al mes o 
cada vez que dispongas de tiempo 
para ello, con los detalles de tus ingre- 
sos (por ejemplo contenidos en las fac- 
turas o recibos) y tus gastos, (sacados 
de la matriz del talonario de cheques 
o de los resguardos bancarios). En el 
momento en que quieras el programa 
te dará un análisis de la forma en que 
se ha gastado tu dinero y de la com- 
paración de tus ingresos y gastos du- 
rante el año. 

Se trata de un programa bastante 
largo. Pero en cuanto lo hayas teclea- 
do una vez y almacenado en cintas o 
disco servirá para siempre, o al menos 
mientras dure el soporte magnético. 

El programa dedica una columna 
para los ingresos y siete para los gas- 
tos, con diferentes encabezamientos. 
Naturalmente estas últimas subdivisio- 
nes se pueden variar para que se adap- 
ten a tus necesidades; para ello no tie- 
nes más que modificar, cuando intro- 
duzcas el programa, las palabras que 
figuran en las sentencias DATA del fi- 
nal del mismo. No obstante, debes 
conservar en su sitio la columna de in- 
gresos y debes tener ocho «columnas» 
juntas o en caso contrario el progra- 
ma no funcionará. 

El programa ha de ser almacenado 
en dos secciones: en primer lugar el 
programa propiamente dicho, y en se- 



gundo lugar toda la información intro- 
ducida en la última sesión de actuali- 
zación. Esto significa que necesitas 
dos nombres de programa, uno para 
cada una de las dos partes. 

Para almacenar el programa propia- 
mente dicho no tienes más que seguir 
el procedimiento de almacenamiento 
habitual, tal como aparece en el ma- 
nual de tu máquina. 

Para volver a cargar otra vez el pro- 
grama, sigue el procedimiento usual 
de carga de juegos o de tus propios 
programas. 

Más adelante veremos instrucciones 
para almacenar y cargar los datos que 
introduzcas referentes a tus gastos e 
ingresos. 

Al ejecutar el programa, el menú 
principal te presentará siete opciones: 

1 Hacer una entrada 

2 Visualizar las entradas 

3 Almacenar en cinta 

4 Cargar desde cinta 

5 Impresora sí/no 

6 Modificar una entrada 

7 Salir del programa 

Vamos a ver cada una de ellas. 



ENTRADAS DE DATOS 

Para hacer una entrada de datos, 
elige 1 en el menú principal. 

El ordenador te preguntará qué cla- 
se de información quieres introducir: 
Fecha, Concepto, Cantidad y Catego- 
ría (la categoría ya la has elegido e in- 
troducido en la sentencia DATA). 

Teclea la información en el orden 
anterior. Un ejemplo podría ser: 
1-4-86, Camisas, 1500, Ropa. 

Cuando hayas completado tus en- 
tradas, espera que el ordenador te 
pida una nueva fecha. Pulsando en- 
tonces 1 RETURN | regresarás al menú 
principal. 



KEYSTONE 











á 








I I 1 


i 1 



VISUALIZARON DE ENTRADAS 

Para ver una entrada o una serie de 
entradas de datos, pulsa la tecla 2 
únicamente, cuando aparezca el menú 
principal. 

El ordenador presentará una tabla 
con las diversas categorías: siete de 
gastos y una de ingresos. Para elegir 
una categoría pulsa el número apro- 
piado y el ordenador listará todos los 
artículos que tiene en esa categoría 
con el total hasta la última fecha. 

Cuando hayas terminado, vuelve al 
menú principal. 

Si eliges la opción 8, no sólo tendrás 
el valor total de tus ingresos, sino tam- 
bién el total de todas las ciases de gas- 
tos, y además el balance de ingresos y 
gastos, es decir, la cantidad neta de di- 
nero que te queda al restar los gastos 
de los ingresos. Si quieres modificar el 
programa, puedes incluir un sonido de 
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L! I i i L-i l_a 

alarma, acompañado de un efecto vi- 
sual estridente, que entre en acción 
cada vez que tus gastos superen a tus 
ingresos y ¡te encuentres en números 
rojos! 



MODIFICACION DE UNA 
ENTRADA 



Cuando pulsas la opción 6 para al- 
terar una entrada el ordenador pre- 
sentará una lista de todas las entradas 
que has realizado, independientemen- 
te de su categoría. 

Puedes moverte hacia adelante o 
atrás por la lista utilizando los indica- 
dores que aparecen en la pantalla. El 
ordenador también te dirá cómo tie- 
nes que editar la entrada. 

Después de la modificación, el or- 
denador volverá automáticamente al 
menú principal. Si quieres hacer una 
nueva modificación, tienes que selec- 



cionar de nuevo la opción 6. Tienes 
que tener en cuenta que estas modifi- 
caciones se llevan a cabo únicamente 
en memoria, por lo que tendrás que 
hacer uso, posteriormente, de la op- 
ción de carga de datos en cassette si 
quieres conservar las modificaciones 
de forma permanente. 



OPCION DE IMPRESORA 



La opción 5 del menú principal te 
permitirá obtener un listado por im- 
presora de los datos almacenados bajo 
las diversas categorías. Al terminar de 
imprimir, el programa volverá al 
menú principal. De este modo podrás 
conservar en papel, ademas de en cin- 
ta magnética, todos aquellos datos que 
creas conveniente. Tienes que tener 
cuidado para no acceder a esta opción 
de listado por impresora si no tienes 
la impresora conectada. Podría ocurrir 
que perdieras toda la información al- 
macenada hasta el momento. 



CARGA Y ALMACENAMIENTO 



La fase de carga y almacenamiento 
de los datos que hayas introducido es 
como sigue: 

Para almacenar los datos, pulsa la 
opción 3. A continuación debes te- 
clear un nombre de fichero por ejem- 
plo «DINERO». Después de poner en 
marcha el cassette pulsa 1 RETURN | . El 
programa se encargará de almacenar 
todos los datos que están en memoria, 
volviendo al menú principal cuando 
haya terminado. Para cargar la infor- 
mación que hayas almacenado previa- 
mente, no tienes más que escoger la 
opción 4 del menú principal. Rebobi- 
na la cinta hasta el punto de comien- 
zo de los datos, escribe el nombre del 
fichero, pon en marcha el cassette y 
pulsa 1 RETURN ] . El programa leerá 
los datos de la cinta. 

No se ha previsto la posibilidad de 
utilizar una unidad de discos, pero la 
adaptación del programa, para los in- 
teresados, es muy sencilla. No hay 
más que modificar las rutinas de 
SAVE y LOAD, que empiezan en las 
líneas 800 y 850, eliminando el identi- 



ficador de cassette (CAS) de las ins- 
trucciones OPEN. 



EL PROGRAMA 



El programa está estructurado al 
máximo. Como podrás ver, el listado 
consta de unas pocas líneas de progra- 
ma principal, y de un conjunto de su- 
brutinas, cada una de las cuales lleva 
a cabo una de las funciones del menú. 

Al comienzo de cada subrutina hay 
un par de líneas de comentario con el 
nombre de la misma. Si no te gusta 
algo del programa y quieres incluir 
modificaciones, sólo tienes que dirigir- 
te a la subrutina apropiada y hacer ex- 
perimentos hasta dar con lo que bus- 
cas. Por ejemplo, podría resultar muy 
interesante, al listar por impresora, 
que el programa ordenara los datos 
por fechas, o por cantidad de dinero. 
Para hacer esta modificación tendrías 
que dirigirte a la subrutina de impre- 
sora e incluir en ella algún procedi- 
miento de ordenación. 

En la línea DATA del final del pro- 
grama están los nombres de las distin- 
tas categorías o apartados bajo los que 
se agrupan los datos. Si quieres modi- 
ficar alguno de los nombres no tienes 
más que cambiarlo en esta línea. To- 
dos los datos que introduzcas se alma- 
cenan en una serie de matrices, que 
quedan definidas al principio del pro- 
grama. Concretamente, la matriz D$ 
es la que almacena las fechas, A$ se 
encarga de los conceptos, A de las 
cantidades y, por último, K$ almace- 
na las categorías. 

10 SCREEN0.-C0L0R 12,1 ,1 :KEY 
0FF:WIDTH 40:CLS:CLEAR 
2000 

15 G0SUB 3000 

20 N=0:W=3:PAG=0:GAS=0:DIM D$ 
(300) ,A$(300) ,A(300) ,K$(7) 
:PR$="n" 

30 F0R T=0 T0 7 : READ K$(T) 
:NEXT T 

100 G0SUB 660 

102 IF A=1 THEN G0SUB 160 

110 0N A G0SUB 160,560,800, 
860,920,970 

120 IF A<>7 THEN 100 

130 CLS : PRINT TABC1 1 ) "SEGURO 



INPUT 55 
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CS/N)?" 
140 T$=INKEY$:IF T$= 
140 

150 IF T$="S" 0R 
CLSrEND ELSE 



THEN 



160 
161 
170 
180 



T$="s" THEN 
GOTO 100 



320 
330 

340 
350 
360 
361 
370 
380 



'Entrada datos 
Z=5:C0L0R8:CLS 
IF N>299 THEN PRINT 
"No caben mas": RETURN 
190 PRINT"PuLsa RETURN en FEC 

HA para 400 

volver al MENU" 410 
200 PRINT: PRINT" FE CHA CON 420 

CEPTO CANTIDAD CAT 430 

.":PRINT STRING$(39,"-") 
220 LOCATE 0,19: FOR J=1 TO 4: 440 
PRINT SPACE$ (30):NEXT: 
LOCATE 0,19:INPUT "FECHA" 
; D$( N+1 ) : LOCATE 0,Z:PRINT 
D$(N+1):IF D$(N+1)="" 450 
THEN 350 460 
230 LOCATE 0,19:PRINT SPACES 470 
(30):L0CATE 0,19:INPUT 
"CONCEPTO"; A$(N+1 ) :LOCATE 480 
10,Z:PRINT A$(N+1) 
235 LOCATE 0,19:PRINT SPACES 

(30):L0CATE 0,19:INPUT 490 
"CANTIDAD"; A(N+1):LOCATE 500 
23,Z:PRINT USING"#######" 
;A(N+1) 

237 LOCATE 0,19:PRINT SPACES 

(30):L0CATE 0,19:INPUT 510 
"CATEGORIA (MAYUSCULAS)"; 
CA$:LOCATE 35,Z:PRINT 
LEFT$(CA$,3) 540 

240 D$(N+1)=LEFT$(D$(N+1),8): 
A$(N+1)=LEFT$ 
(A$(N+1),16) 

250 GOTO 270 550 

260 LOCATE 0,19:INPUT 

"CATEGORIA (MAYUSCULAS)"; 555 
CA$:LOCATE 35,Z:PRINT 560 
LEFT$(CA$,3) 561 

270 X=0:FOR T=0 TO 7:IF INSTR 570 
(K$(T),CA$)=1 THEN X=X+1 : 
Y=T 

280 NEXT 

290 IF X<>1 THEN 260 

295 LOCATE 35,Z:PRINT LEFTS 580 

(K$(Y),3) 
300 A$(N+1)=CHR$(Y)+A$(N+1) 
310 IF Y=7 THEN PAG=PAG+A 

(N+1) ELSE GAS=GAS+A 

(N+1) 590 



Z=Z+1 :N=N+1 

IF Z>15 THEN Z=3:CLS:G0T0 

200 

GOTO 220 

RETURN 
■ 

'Presentación datos 
CLS:SUM=0 

PRINT TAB(20-LEN(K$(C))* 

.5) K$(C):PRINT STRINGS 

(39,"-") 

FOR T=1 TO N 

IF N=0 THEN 460 

S$=RIGHT$(A$(T),1) 

IF ASC(LEFT$(A$(T),1)X>C 
THEN 460 

PRINT D$(T);TAB(10)RIGHT$ 

(A$(T),LEN(A$(T))-1); 

TAB(30); :PRINT USING 

"#######"; A(T) 

SUM=SUM+A(T) 

NEXT 

PRINT TAB(23) STRINGS 
(16/'-") 

PRINT TAB(23) "Total "; 
:PRINT USING "#######"; 
SUM 

IF C<>7 THEN 540 

PRINT TABÍ14) 

"Gastos totales"; TAB(30) 

"";: PRINT USING"#######"; 

GAS 

PRINTTAB(21 ) "Bal anee ";TAB 
(30) "";:PRINT USING 
"#######"; PAG-GAS 
LOCATE0 / 19:PRINT"Una tecl 
a para mas datos 

RETURN para volver 
al MENU" 
T$=INKEY$:IF T$="" THEN 
550 

RETURN 

"Elegir categoria 
C0L0R10:CLS:PRINT TABU) 
G1$:PRINT TAB(4) G3$; 
SPACE$(8);"CATEGORIAS"; 
SPACE$(10);G3$:PRINT TAB 
(4)G2$ 

PRINT TAB(4)G1$:F0R T=0 
TO 7:PRINT TAB(4)G3$; 
TAB(10)STR$(T+1);" "; 
K$(T);TAB(33) G3$:NEXT: 
PRINT TAB(4) G2$ 
LOCATE 4,18:PRINT G1$: 



RESUMEN SITUACION FI h 

No hay fondos 
*c hay 1 iquide2 
No haw reservas 



QUE HfiS HECHO 1 



KEYSTONE 











4 






» .-"te 


V í 1 1 


I I 



PRINT TAB(4)G3$+" -E 
lige categoria- "+G3$ 
:PRINT TAB(4)G2$ 
600 T$=INKEY$:IF T$="" THEN 
600 

610 IF T$=CHR$(13) THEN COLOR 

1 2 : RETURN 
620 IF VAL(T$)<1 OR VAL(T$)>8 

THEN 600 
630 C=VAL(T$)-1 : COLOR 12 : IF 
PR$="s" THEN RETURN ELSE 
GOSUB 360 
640 IF T$=CHR$(13) THEN 650 

ELSE 570 
650 COLOR 12: RETURN 

660 1 

661 'Menú 
670 CLS: COLOR 12 
675 LOCATE 4,1: PRINT G1$: 

LOCATE 4,3:PRINT G2$ 
680 LOCATE 4,2: PRINT G3$+" 
MENU PRINCIPAL 
"+G3$ 



56 INPUT 




Aplicaciones 




685 LOCATE 4,4: PRINT G1$ 
690 LOCATE 4,5:PRINT 63$+" 
1 :-Entrada de datos 
"+G3$ 

700 LOCATE 4,6: PRINT G3$+" 
2:-Ver datos 
"+G3$ 

710 LOCATE 4,7:PRINT G3$+" 
3:-Save en cassette 
"+G3$ 

720 LOCATE 4,8: PRINT G3$+" 
4:-Load de cassette 
"+G3$ 

730 LOCATE 4,9: PRINT G3$+" 
5 :-Impresora 
"+G3$ 

740 LOCATE 4,10:PRINTG3$+" 
6:-Cambiar datos 
"+G3$ 

750 LOCATE 4,1 1 : PRINTG3S+" 
7:-Salir deL programa 
"+G3$ 

755 LOCATE 4,12:PRINT G2$ 



760 LOCATE 4,19:PRINT G1 $ 
: LOCATE 4,21:PRINT G2$: 
LOCATE 4,20:PRINT G3$+" 
-Elige opcion- 
"+G3$ 

770 T$=INKEY$:IF T$="" THEN 
770 

780 IF VAL(T$)<1 OR VAL(T$)>7 

THEN 770 
790 A=VAL(T$) :RETURN 

800 1 

801 'Guardar datos en 
cassette 

810 CLS: INPUT 

"Nombre del fichero";NM$ 
820 IF NM$="" THEN RETURN 
830 OPEN "cas:nm$" FOR OUTPUT 

AS #1 :PRINT:PRINT 

"Guardando datos" 
840 PRINT01 ,N:F0R T=1 TO N: 

PRINT#1 ,D$(T) : PRINT#1 ,A$ 

(T):PRINT#1,A(T):NEXT: 

CL0SE#1 
845 RETURN 

850 1 

851 'Cargar datos de 
cassette 

860 CLS: INPUT 

"Nombre del f i chero";NM$ 
870 PRINT: PRINT 

"Pulsa PLAY en el 

cassette" 
880 OPEN "cas:nm$" FOR INPUT 

AS#1 :INPUT#1 ,N 
890 FOR T=1 TO N:INPUT#1,D$ 

(T) : INPUT#1 ,A$(T) : INPUT#1 

,A(T) 

900 IF ASC(A$(T))=7 THEN 

PAG=PAG+A(T) ELSE GAS=GAS 
+A(T) 

910 NEXT:CL0SE#1 

915 RETURN 

920 1 

921 'Impresora 

922 CLS:PRINT"Conecta 
impresora y pulsa RETURN 

924 T$=INKEY$:IF T$="" THEN 
924 

926 PR$="s":G0SUB 560 

928 CLS:PRINT"Imprimiendo... 

930 SUM=0 

932 LPRINT TAB(20-LEN(K$( C) )* 
.5) K$(C):LPRINT STRINGS 
(39,"-") 



934 FOR T=1 TO N 

936 IF N=0 THEN 946 

938 S$=RIGHT$(A$(T),1) 

940 IF ASC(LEFT$(A$(T),1)X>C 

THEN 946 
942 LPRINT D$(T);TAB(10)RIGHT 

$(A$(T),LEN(A$(T))-1);TAB 

(30);:LPRINT USING 

"#######";A(T) 
944 SUM=SUM+A(T) 
946 NEXT 

948 LPRINT TAB(23) STRINGS 

(16,"-") 
950 LPRINT TAB(23) "Total "; : 

LPRINT USING "#######"; 

SUM 

952 IF C<>7 THEN PR$="n": 
RETURN 

954 LPRINT TAB(14) 
"Gastos totales"; TAB(30) 
"*';:LPRINT USING"#######" 
;GAS 

955 LPRINTTABÍ21) "Balance" 
;TAB(30) "" ;:LPRINT 
USING"#######"; PAG-GAS 

956 PR$="n": RETURN 

970 ' 

971 'Cambiar datos 
980 CLS:T=1 :T$="":P=0 
990 IF N=0 THEN RETURN 
1000 CLS : PRINT TABC11) 

"Entrada No.";STR$(T) 
: PRINT"FECHA CONCEPT 
0 CANTIDAD CAT" 
: PRINT STRING$(39,"-") : 
PRINT D$(T);TAB(10)RIGHT 
$(A$(T),LEN(A$(T))-1); 
TAB(23) A(T);TAB(35) 
LEFT$(K$(ASC(A$(T))),3) 

1010 L0CATE0,17:PRINT 

"CURSOR ARRIBA y ABAJO p 
ara moverte ESPACIO 
para cambiar datos 
RETURN para MENU" 

1020 T$=INKEY$:P=STICK(0) :IF 
T$="" AND P=0 THEN 1020 

1030 IF P=1 THEN T=T-1:IF T<1 
THEN T=1 

1040 IF P=5 THEN T=T+1:IF T>N 
THEN T=N 

1045 IF P=1 OR P=5 THEN GOTO 
1000 

1050 IF T$=CHR$(13) THEN 
RETURN 

1060 IF T$=" " THEN 1075 
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MENU PRINCIPAL 



•Entradla de datos*. 
-Ver- ciatos 
•3. a '-.^ e eri oassett'© 
-Load cíe cassette 
j trtjof>e£>or # a 
- G a rr¡ fo i á r d a t o s 
•Sa 1 i r de 1 pr>óc¿r-ama 



e c«f:« c i or 





Caí 




P B 




Pb 




©a 




Ma 




I 



ROPA 



1 

tal ones 
u.e 1 cme> 
arias 
tel 

a t os 



1700 

3000 
6.00 
S000 



1070 
1075 



1080 




1150 
1160 



1170 
1180 

1190 
1200 
1210 
1220 

1230 



2000 



3000 
3001 
3010 



raenn 



a m a s: '-"i a t o ¿> 
b I ver- al MENU 



3020 



3030 



3040 
3050 



GOTO 1020 

LOCATE 0,17: F0R J=1 T0 3 
:PRINT SPACE$(35) :NEXT 
:L0CATE 0,13 
E=T: PRINT 

"Cambiando entrada" 
CA$=CHR$(ASC(A$(E))) 
IF ASC(A$(E))=7 THEN 
PA6=PAG-A(E) ELSE 
GAS=GAS-A(E) 
INPUT"Fecha";Q$:IF Q$<> 
"" THEN D$(E)=Q$ 
INPUT"Concepto";Q$:IFQ$ 
<>"" THEN A$(E)=Q$ ELSE 
A$(E)=RIGHT$(A$(E) ,LEN 
(A$(E))-1) 

INPUT"Cantidad";Q$:IF Q$ 

<>"" THEN A(E)=VAL(Q$) 

INPUT"Categoria (MAYUSCU 

LAS)";Q$:IF Q$<>"" THEN 

CA$=Q$ 

GOTO 1170 

LOCATE 0,17:INPUT 

"Categoría ( MAYUSCULAS) " 

;CA$ 

X=0:F0R T=0 T0 7 
IF INSTR(K$(T),CA$)=1 
THEN X=X+1:Y=T 
NEXT T 

IF X<>1 THEN 1160 

A$(E)=CHR$(Y)+A$(E) 

IF Y=7 THEN PAG=PAG+A(E) 

ELSE GAS=GAS+A(E) 

PRINT"Correccion hecha": 

F0R J=1 T0 1500:NEXT: 

RETURN 

DATA HOGAR, DIVERSIONES, A 
RRENDAMIENTOS, ROPA, COCHE 
, VACACIONES, VARIOS, INGRE 
SOS 
i 

'Caracteres recuadro 
F0$=CHR$(1 ) : F1 $=F0$+CHR$ 
(87) :F2$=F0$+CHR$(88) 
:F3$=F0$+CHR$(89) :F4$= 
F0$+CHR$(90) :F5$=F0$+ 
CHR$(91) 

G1$=F2$:F0R J=1 T0 28 
:G1 $=G1$+F1$:NEXT 
:G1 $=G1$+F3$ 
G2$=F4$:F0R J=1 T0 28 
:G2$=G2$+F1$:NEXT:G2$= 
G2$+F5$ 

G3$=F0$+CHR$(86) 
RETURN 
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LOS MEJORES 
DE INPUT MSX 

PUESTO TITULO PORCENTA/E 

í.° KnightLore 21,4% 

2. ° H.E.R.O 16,1 % 

3. ° Soccer 13,3% 

4. ° Yiearkungfu 9,9% 

5. ° Profanation 9,8% 

6. ° Gunfright 8,2 % 

7. ° River Raid 8,1 % 

8. ° The way of the tiger 5,3% 

9. ° Hyperrally 4,4% 

10.° Road fíghter 3,5% 



100% 

Para la confección de esta relación únicamente se 
han tenido en cuenta /as votaciones enviada por 
nuestros lectores de acuerdo con la sección «Los 
Mejores de Input». 

Datos recogidos hasta la primera semana de julio. 
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LLEGO DE OTRA GALAXIA 



Alien 8 se encuadra dentro de la 
serie de programas de Ultímate, 
todos ellos basados en la misma 
técnica de presentación 
tridimensional. El «cibot» Alien 8 se 
encuentra al cuidado de los últimos 
supervivientes de un lejano planeta, 
muerto ya hace muchísimos siglos. 
La nave en la que viajan estos 
supervivientes, los circonautas, 
recorre el universo, a la velocidad de 





la luz, buscando un nuevo planeta en 
el que rehacer la civilización. Los 
circonautas se encuentran en estado 
de hibernación, con el fin de 
mantener sus constantes vitales al 




mínimo de consumo y resistir la. larga 
duración del viaje interestelar. 
Alien 8 tiene que cuidar de mantener 
a todos los circonautas activos al 
mismo tiempo que se ocupa del buen 
funcionamiento de los sistemas que 
servirán para despertarlos al final del 
trayecto, antes del aterrizaje en ej 
nuevo planeta. Para cumplir con tan 
delicada misión, el simpático «cibot» 
tiene que encontrar las cámaras 
criogénicas y activarlas. Al mismo 
tiempo tiene que mantener en 
actividad las válvulas termóleas de 
suministro de energía. 
Para cumplir con todos estos 
objetivos, Alien 8 tiene que sortear 



las múltiples trampas de las distintas 
salas de la nave, puestas ahí para 
evitar que seres de otros planetas 
puedan acercarse y dañar a los 
circonautas. Aunque todas estas 
trampas están grabadas en su 
memoria, los programadores no 
tuvieron tiempo de entrenarle en 
cómo evitarlas. En lugar de eso le 
dotaron de la suficiente inteligencia 
(artificial, por supuesto) como para 
que fuera capaz de enfrentarse a 
cualquier dificultad, él solo. El 
juego, que sigue la tradición de otros 
programas de Ultímate, destaca por 
la excelencia de sus gráficos y por la 
sorprendente sensación de 
tridimensionalidad conseguida en el 
movimiento del «cibot». 
La trampa que nos encontramos en 
cada una de ellas es diferente a la de 
cámaras anteriores, lo que 
contribuye a que el juego resulte 
entretenido desde la primera pantalla 
hasta la última. 

El juego, originalmente desarrollado 
para el Sinclair Spectrum, ha sido 
adaptado a MSX prácticamente sin 
cambios. 



*★★**★★★★*★*★★*★*★*★★★***★*★ 



SIETE BOLAS DE MARFIL 



Dale tiza a tu taco y apunta bien* con 
tu bola blanca, a ver si eres capaz de 
dar un buen golpe a tres bandas y 
mandar todas las bolas al agujero de 
una sola vez. Esto es lo que te 
propone Konami con su programa 



Bílliards; una buena versión de billar lanzar una versión de un juego tan 



americano para MSX. No deja de 
sorprender que la firma japonesa, 
que nos tiene acostumbrados a 
juegos en lo que lo más importante 
es la originalidad, se haya decidido a 



clásico como el billar. Pero la versión 
es buena, está bien acabada 
técnicamente y no desmerece en 
absoluto de la linea de buenos 
programas Konami. 
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El juego, que comienza con la 
pantalla de elección de opciones 
(uno o dos jugadores, con teclado o 
joystick) se desarrolla sobre una 
mesa, con seis agujeros y con su 
correspondiente tapete verde, que 
ocupa la mitad inferior de la 
pantalla. En la mitad restante 
aparecen los marcadores de 
puntuación, de puntuación máxima y 
una serie de indicadores de la 
situación del juego. 
Las reglas del mismo son bien 
sencillas. Cada jugador comienza la 
partida con tres bolas blancas con las 



nada más frustrante que fallar 
golpes, no por un tiro equivocado, 
sino porque la bola no va donde las 
leyes matemáticas dicen que tiene 
que ir. En este aspecto la versión de 
Konami es perfecta. También es 
excelente la suavidad y progresividad 
del movimiento de las bolas. 
El aspecto más flojo del juego es la 
forma de elegir la dirección del 
golpe. Se hace de la forma 
convencional, moviendo un punto 
blanco con los cursores o el joystick. 
hacia el que se dirigirá la bola blanca 
cuando disparemos. El problema es 



esto no es así, lo que hace que 
muchos tiros que en principio son 
fáciles, se nos escapen por no poder 
apuntar con la suficiente precisión. 
La potencia de los golpes, que 
aparece reflejada en un indicador de 
barras que hay encima de la mesa, 
puede elegirse entre tres niveles que 
corresponden a golpes flojos, medios 
y fuertes. Aunque hubiera resultado 
más atractivo poder escoger la 
potencia de forma continua, estos 
tres niveles dan juego suficiente para 
la mayoría de los golpes. 
También se hecha de menos no 
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que tiene que enviar al agujero a seis 
bolas coloreadas y numeradas de 1 a 
6. La bolas coloreadas se pueden 
meter en los agujeros en cualquier 
orden, pero si el jugador es hábil y 
consigue colarlas según su 
numeración, la puntuación se 
multiplicará por 2, 4, 8 y 16. 
También se pueden obtener puntos 
extra colando dos bolas de un solo 
golpe (la puntuación se duplica) o 
incluso tres (la puntuación se vuelve 
a duplicar), pero para ello hay que 
ser bastante experto. 
Si después de tres golpes el jugador 
no ha conseguido colar ninguna bola, 
pierde una de las bolas blancas. Lo 
mismo ocurre cuando la bola que se 
cuela es la blanca (y al principio, por 
alguna extraña ley, es la que más se 
suele colar). Al perder las tres 
blancas, el jugador queda eliminado. 
Técnicamente el juego es bastante 
bueno. Las bolas son de considerable 
tamaño y rebotan de una forma muy 
real, sin sorpresas ni extraños 
cambios de dirección. Este es un 
aspecto fundamental en un juego de 
estas características, pues no hay 




que el punto blanco no se puede 
desplazar libremente por la mesa, 
sino que está limitado a los bordes 
de la misma. Esto hace que sea 
difícil apuntar con precisión, a menos 
claro está que queramos apuntar 
justo a un punto del borde de la 
mesa. En la mayoría de las ocasiones 



poder dar golpes con efecto. 
De todas formas y a pesar de estos 
pequeños detalles, los aspectos 
importantes del juego, como son la 
suavidad y progresividad de los 
movimientos y que los rebotes sean 
reales, están perfectamente 
conseguidos. 



★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

VELOCIDAD: MACH 2 



Creado en Japón y distribuido por 
Philips, este F16 Fighter es un 

estupendo simulador de combates 
aéreos, en el que se enfrentan los 



más sofisticados aviones de caza. El 
jugador lleva los mandos de un F16. 
A través de una serie de niveles de 
dificultad creciente, tiene que ir 
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abatiendo cazas enemigos. En cada 
nivel los cazas son más numerosos y 
además hay que combatir 
simultáneamente con mayor número 




de ellos. . 

A no ser que el jugador decida lo 
contrario, el juego comienza en el 
nivel uno, en el que sólo hay que 
enfrentarse a dos cazas, que además 
no atacan simultáneamente sino de 
uno en uno. 

La presentación en pantalla es 
bastante clásica en algunos aspectos. 
En otros se sale de la norma. Clásica 
es, por ejemplo, la división de la 
pantalla en dos franjas. En la 
inferior aparecen los instrumentos de 
vuelo, entre ellos dos pantallas de 
radar, una serie de pilotos 
indicadores de situaciones de ataque 
y defensa, y una zona con textos en 
la que aparecen reflejados datos 
sobre la munición, el tipo de 



NO OLVIDES 
EL TELEFONO. 

Cuando, por cualquier 
motivo, nos escribas. 



armamento en uso, etc. 
En conjunto este panel de 
instrumentos resulta un tanto pobre, 
poco trabajado, pero salvo este 
detalle estético cumple su misión a la 
perfección. 

La mitad superior de la pantalla está 
dedicada al cristal de la cabina, a 
través del que puede verse el 
escenario exterior. En este aspecto el 
programa se sale de la norma 
sorprendiendo agradablemente y ello 
porque, en lugar de la clásica y sosa 
línea de horizonte, que es lo único 
que suele verse, en este caso se ha 
incluido una trama de líneas en 




perspectiva, que se mueven 
siguiendo los movimientos del F16. 
El resultado es una excelente 
sensación de perspectiva y de estar 
realmente volando a gran velocidad. 
También en esta parte superior de la 
pantalla, superpuestos al cristal, 
aparecen los indicadores de 
velocidad, altitud y rumbo. 
El movimiento del caza y del terreno 
exterior es bastante bueno; es suave, 
progresivo, sin saltos bruscos y 
bastante rápido. El avión responde 
con rapidez a las maniobras del 
piloto, que solo puede girar, elevarse 
o descender. 



Los combates son lo más interesante. 
Lo primero es localizar al enemigo 
en las pantallas de radar y dirigirse 
hacia él, hasta entrar en contacto 
visual. A partir de entonces hay que 
hacer uso del armamento, (misiles o 
cañón) al mismo tiempo que 
intentamos no perder de vista al caza 
que tenemos delante. 
El manejo del caza se puede hacer 
desde el teclado, utilizando un 
joystick y parte del teclado o 
utilizando dos joysticks. En cualquier 
caso hay muchos parámetros que 
controlar. 

Quiza lo más original del juego es 
algo que no hemos comentado hasta 
ahora y es que la opción para dos 
jugadores no es la clásica de los dos 
jugadores sobre el mismo juego. En 
este caso se trata de que cada 
jugador juegue en su propio 
ordenador, con su propio cartucho, 
pero habiendo conectado 
previamente ambos ordenadores a 
través de un cable especiál que se 
enchufa en los conectores de 
joystick. La idea es estupenda. En 




este caso, el juego transcurre a 
través de diez encuentros, quedando 
ganador el jugador que consiga 
mayor numero de victorias. 
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TARDE DE CIRCO 



Charlie, el payaso, es la estrella de 
este circo al que nos invita Konami. 
Aparte de hacer reir a la gente, 
Charlie tiene otras muchas 
habilidades circenses que le hacen 
ganar el aplauso del público tarde 
tras tarde. Entre los números de este 
payaso los más aplaudidos son: el 
salto a caballo a través de los aros de 
fuego, los equilibrios sobre el 
alambre (que por aquello del más 
difícil todavía, está plagado de 
monos haciendo equilibrios y 
estorbando a Charlie), los paseos 
sobre bolas rodantes, el salto de 
obstáculos a lomos de un ponney y 
por último, un número con lianas y 
camas elásticas con el que Charlie 
deja boquiabierta a la concurrencia. 
Estas son las distintas fases del 
juego, cada una más difícil que la 
anterior, por las que tiene que pasar 
el jugador. 

Cada fase hay que completarla 
dentro de un tiempo límite. De no 
conseguirlo, perderás uno de los tres 
Charlies disponibles al comienzo del 
juego. 

La dificultad, en las primeras 
partidas, es mucha. Pero al tratarse 
de un juego en el que lo único 
importante es la práctica y la 
habilidad con el joystick, al cabo de 
unos cuantos descalabros se puede ir 
avanzando de nivel en nivel. 
Los gráficos, aunque no muy 
trabajados, son correctos. Les falta 



un poco de gracia y algunos detalles 
más para llenar los escenarios, que 
resultan un poco sosos. 
Lo que si está muy cuidado es el 
movimiento, tanto del sprite de 
Charlie como de las otras figuras que 
intervienen en cada uno de los 
números. Son progresivos, suaves, 
precisos y además, están 
acompañados de un scrolling 
sensacional. 

La música es otro de los puntos 
fuertes del juego. Durante cada 



número suenan varias musiquillas de 
circo, muy agradables y bien 
ejecutadas, que animan bastante la 
actuación. 





GANADORES DE LOS MEJORES DE INPUT MSX 


En el sorteo correspondiente al número 3 entre quienes escribisteis mandando vuestros votos a LOS 


MEJORES DE INPUT han resultado ganadores: 






NOMBRE 


LOCALIDAD 


JUEGO ELEGIDO 


Carlos Quereda Casadesus 


Alicante 


The way oí the tiger 


Baudilio Martínez Vela 


Valencia 


Knight Lore 


Daniel Martínez Ruiz 


P. de Mallorca (Baleares) 


Yie ar Kung fu 


Enrique Ureta Truque 


Madrid 


Golf 


J. Luis Juárez Moreno 


S. A. de la Barca (Barcelona) 


Road Fighter 


J. Luis Lencina Alonso 


Jumilla (Murcia) 


Alien 8 


Pedro Anquela Lecuona 


Madrid 


Soccer 


A. Javier Rus Santoyo 


Granollers (Barcelona) 


Green Beret 


Jesús Anelo Ahumanda 


S. Fernando (Cádiz) 


Soccer 


Pablo Bisquerra Pérez 


P. de Mallorca (Baleares) 


Gunfright 
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PIES, PARA QUE OS QUIERO 



Aackosoft, la firma holandesa, está 
lanzando una serie de versiones de 
grandes clásicos del software, 
programas con muchos años a 




que resultan bastante pobres si los 
comparamos con el software actual. 
Este es el caso de este Scentipede, 
versión del famoso juego del gusano 
que intenta llegar a la parte inferior 
de la pantalla y alcanzar al jugador, 
que desde allí dispara. Al acertarle 
con algún disparo, el gusano se parte 
en dos trozos, cada uno de los cuales 
sigue desplazándose con vida propia. 
De este modo, y si no tenemos 
cuidado, nos encontraremos con un 
montón de trocitos de gusano, 
atacándonos desde todas direcciones. 
Además, cada segmento de gusano 
que alcancemos, se transformará en 



velocidad vertical de descenso del 
gusano. 

Además del gusano, hay una araña 
que no hace más que moverse y 
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cuestas, que fueron grandes éxitos en 
su día y que ahora llegan a MSX, 
hay que decirlo, sin haber sido 
suficientemente remodelados, por lo 



una planta que obstaculizará el 
avance de los segmentos restantes, lo 
que en determinadas circunstancias 
será contraproducente al aumentar la 



estorbar. Conviene disparar sobre 
ella en cuanto aparezca para 
quitársela de encima y poder así 
concentrarse en el gusano. 
Uno de los puntos fuertes de este 
juego ha sido siempre la gran 
velocidad del movimiento del 
gusano. En esta versión, la velocidad 
es algo más lenta, 

incomprensiblemente. Si además de 
ello consideramos que los gráficos no 
son muy buenos y que el sonido es 
regular, nos encontramos con una 
versión un tanto pobre de un juego 
que fue un gran éxito en su dia, y 
que hoy resulta obsoleto. 



EL GRAN FINANCIERO 



COPIAS DE SEGURIDAD 

• SALVAGUARDA TODOS TUS 
PROGRAMAS EN CODIGO MAQUINA 

• CALIDAD GARANTIZADA 

• CONTACTAR CON: 

LUIS A. SANZ 
C/ CATTASSA-22 
50006 ZARAGOZA 



Dimensión New nos ofrece, con 
Invierte y Gana, la posibilidad de 
acercarnos al apasionante y un tanto 
misterioso mundo de las finanzas, a 
través de un juego de simulación de 
la actividad de una bolsa de valores 
imaginaria. 

En ella tendrá que desenvolverse el 
jugador o los jugadores (pueden 
jugar hasta 6 personas 
simultáneamente), vigilando el 
estado de las cotizaciones y 
decidiendo la compra o la venta de 
acciones, siempre con el objetivo 
final de obtener un beneficio 




máximo. 

La acción del juego, bastante clásico 
en su presentación, se controla desde 
un menú de 8 opciones desde el que 
podemos: conocer las cotizaciones de 
bolsa, el estado de nuestra cartera de 
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valores, comprar y vender acciones, 
realizar operaciones bancarias 
solicitando o devolviendo préstamos, 
etc. 

Al elegir cada una de las opciones, 
aparece en la pantalla un cuadro con 
la información correspondiente. 
Después, el programa hace una serie 
de preguntas al jugador, que 
responderá en un sentido u otro 
según lo que desee hacer. 
La bolsa de valores incluye 25 
sociedades, repartidas en 5 sectores 
(bancos, eléctricas, seguros, 
petróleos e industria), que ponen a 
la venta 2000 acciones cada una a un 
valor inicial de 100 enteros, o lo que 
es lo mismo, 500 unidades 
monetarias. El capital inicial de cada 
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Anual del carnet de la asociación de 
agentes de cambio. 
A lo largo del juego, la cotización de 
las acciones sube o baja según las 
compras y ventas que hacen los 
jugadores, pero también según una 
serie de factores aleatorios que 



DATOS GENERALES 
TITULO Invierte y Gana 
FABRICANTE Dimensión New 

CLASE DE PROGRAMA 

Juego de bolsa 

FORMATO Cassette 



CALIFICACION (Sobre 10 ptos ) 


ORIGINALIDAD 


8 


INTERES 


8 


GRAFICOS 


7 


COLOR 


7 


SONIDO 


6 


TOTAL 


36 



serie de flashes informativos. 
El juego transcurre mes a mes hasta 
que, al cabo de cada año, aparecen 
en pantalla los resultados de las 
sociedades. Las sociedades que 
tengan beneficio repartirán 
dividendos entre sus accionistas. 
Además de una buena presentación 
en pantalla, fundamental en este tipo 
de juegos en los que lo único que 
aparece es texto, el programa tiene 
las cualidades de ser rápido y de 
reproducir con bastante realismo la 
actividad real de una bolsa de 
valores. 

Las partidas pueden ser bastante 
largas y se echa de menos una 
opción que permitiera guardar el 
juego en cassette, para retomarlo en 
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jugador es de 500. 0(X) unidades 
monetarias de las que se descuentan 
5.000 para pagar la primera Cuota 



genera el propio programa. Los 
jugadores son informados de estos 
factores aleatorios a través de una 



otro momento. Por extraño que 
parezca, los programadores no han 
tenido en cuenta esta posibilidad. 



★★★★★★★★★★★★★★★★★★★★★★★*★★★★ 



BOUINIDER 

Bounder es uno de los programas 
más originales que hemos tenido 
oportunidad de probar. 
Una pelota de tenis recorre la ciudad 
botando de un sitio para otro, 
corriendo el peligro de caer sobre 
cristales, estrellarse contra muros, o 
ser picoteada por algún pájaro. Tu 
misión consiste en llevarla sana y 
salva hasta el final, atravesando una 
serie de fases sucesivas en creciente 
grado de dificultad. 
Cuando juegues por primera vez, 
descubrirás que caer sobre todo 
aquello que no sea una losa 




hexagonal, te cuesta una de las seis 
vidas con las que se comienza cada 
juego. Pero hay dos excepciones a 
esta regla: los recuadros que 
contienen una flecha, y los que 
aparecen con un signo de 



interrogación. Los primeros, 
permiten a la pelota de tenis dar un 
salto el doble de largo, es decir, 
permanecer dos veces más tiempo en 
el aire, y son muy útiles para 
esquivar grandes obstáculos. Los 
segundos, guardan bonificaciones en 
puntos, o en vidas, que unas veces 
son buenas y otras regulares. 
El plano de la ciudad en que 
transcurre la acción aparece visto 
desde arriba, y la pelota se aproxima 
al espectador cada vez que asciende 
en uno de sus botes. El escenario 
avanza en scroil a medida que lo 
hace la pelota, y no hay cortes entre 
pantallas, excepto cuando se pasa de 
un nivel a otro. El desplazamiento 
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gráfico está muy bien conseguido, y 
el grado de interés del programa es 
alto, entre otras razones por la 
originalidad de su tema. 
Al principio cuesta mucho calcular 
correctamente las distancias y 
esquivar los obstáculos, pero en 
cuanto se adquiere un poco de 
práctica estos problemas 
desaparecerán y se descubre que el 
nivel de dificultad no es tan alto 
como parece. 




Creemos que este programa merece 
una valoración muy positiva. Reúne 
las dos condiciones esenciales que 



debéis exigir a todo juego que se os 
ponga por delante: es muy original, y 
es muy entretenido. Naturalmente, 



se puede pedir más de cualquier 
programa, pero nunca conformarse 
con menos. 



***★★★*★★★*★***★★★★★★★★★★★★★ 



GL ZOCO D¿ MPUT 



Todo se compra y se vende. Los antiguos zocos fueron lugares destinados a 
todo tipo de transacciones. INPUT también tiene el suyo. Vuestras operaciones 
de compra, cambio o venta serán publicadas en esta sección, pero dos son las 
limitaciones que imponemos: 

a) La propuesta tendrá que ver con la microinformática. 

b) Nos reservamos el derecho de no publicar aquellos insertos de los que se 
sospeche un trasfondo lucrativo. 

Ahora un ruego. Tratar de resumir al máximo el texto; escribir casi como un 
telegrama siendo claros y concisos. 

Envía tu mensaje a: 

INPUT MSX ZOCO 

c/. Alberto Alcocer, 46 
28016 MADRID 
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NUESTROS JUEGOS 
TAN HECHOS PARA TI 



Como usuario de MSX. puede que ha- 
yas tenido la sensación de que las casas 
importantes de software te habían olvi- 
dado. Rara remediar esa situación. ERBE. 
U. S. GOLD y UL TIMA TE han consegui- 
do convertir al MSX una serie de fabu- 
losos programas pensados para aprove- 
char al máximo las grandes posibilida- 
des de estos ordenadores. Aqui están 
cinco sobresalientes fuegos en cas- f 
sette que van a demostrarte lo f 
que puede dar de si tu MSX sin M 
que tengas que gastar una for- m 
tuna en "cartuchos". m 
Directo desde Norte América M 
llega GROGS REVENGE. Per- M 
sonajes de comic inmensa- m 
mente populares en U.S.A. m 



para producir fuegos de una calidad 
única. NIGHTSHADE utiliza "Filma tion II" 
y el resultado es un fuego de propor- 
ciones, que superan todo lo hecho hasta 



Grog y Thor son dos trog/odi- \ 
tas. que se desenvuelven como \ 
pueden en la Edad de Piedra... y \ 
es que la supervivencia no es ta- ^kiJ 

cil. Diplodocus. cavernas, rocas, si- 
mas y mil peligros les acechan en e/^ 
fuego mas original, que jamás hayas visto. 
"Filma tion". es una técnica de programa- 
ción creada y desarrollada por Ultímate 
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el momento en gráficos tridimensionales. 
ffOUNDER de Gremlin Graphics es el 
programa que va a poner a prueba tu 
habilidad en el mane/o del foystick. Mo- 
ver una pelota de tenis que rebota a 
través de un sinfín de pantallas en las 
que has de controlar los botes para evi- 
tar que caiga donde no debe, es una ta- 
. rea de lo más difícil y adictivo y que 
ha hecho de este fuego que sea N:' 
/ en Inglaterra. Y por último 
1 X DAMBUSTERS. Esta simulación 
fc^J»^ no necesita presentaciones, se 
m \ trata de una fiel reconstrucción 
% de la legendaria misión, que 
\ llevó a cabo durante la II 
\ Guerra Mundial el Escuadrón 
A 1 ó 17. y en la que destruye- 



ron la presa que daba energía a 
las fabricas de armamento alema - 
M ñas. DAMBUSTERS con su mezcla 
M de simulador, acción y estrategia es 
/f ya un clásico dentro de los progra- 
T mas de ordenador. Todos estos gran- 
des fuegos en cassettes están disponibles 
ahora para tu MSX en todos los grandes 
establecimientos de informática. 
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Rogamos a todos los usuarios de Spectrum. CM 64. Amstrad y MSX que nos escriban 
a SERMA sugiriendo ideas para hacerlas realidad en nuestra tienda 



ODOS LOS JUEGOS DEL CATALOGO DE SERNA 
ESTARAN TAMBIEN A LA VENTA EN: lOonami 
LOS TITULOS EDITADOS POR lOonami PARA 
SPECTRUM, CM 64, AMSTRAD Y MSX SON: 
FABRICADOS Y DISTRIBUIDOS EN EXCLUSIVA 
POR SERMA. 4- 



